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PL/M is a new high level programming language designed specifically for Intel's 8 
bit microcomputers. The new language gives the microcomputer systems program- 
mer the same advantages of high level language programming currently available in 
the mini and large computer fields. Designee! to meet the special needs of systems 
programming, the new language will drastically cut microcomputer programming 
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ard Fortran IV and thus will execute on most machines without alteration. 
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A GUIDE TO PL/M PROGRAMMING 



I. INTRODUCTION TO PL/M. 

PL/M is a programming language designed specifically 
for the INTEL MCS-8 Microcomputer. The language is 
structurally similar to PL/I (in particular, PL/M closely 
resembles XPL) , with data types and primitive operations 
which reflect the architecture of the MCS-8 CPU. Thus, the 
systems designer can use PL/M to quickly and easily express 
programs which execute on the MCS-8 CPU, with little or no 
loss in execution efficiency when compared to assembly 
language programming. In addition, programs written in PL/M 
are somewhat self- document ing, are easily altered and 
maintained, and provide upward software compatibility in the 
INTEL 8000 CPU series. That is, programs written in PL/M 
for the 8008 CPU can be recompiled for the 8080 CPU with no 
alteration of the source program. In each case, the 
resulting object code takes advantage of the particular 
target CPU architecture. 

The discussion of PL/M given here is in two main 
sections. Section II provides a tutorial description of 
PL/M; only a minimal amount of programming experience is 
assumed, and the discussion is mainly expository. Section 
III presents a more formal approach to PL/M, providing the 
exact syntactic structure and corresponding actions of each 
statement in PL/M. Section III is intended as a reference 
manual, but may ' be used as an introduction to PL/M by 
readers who are familiar with block structured languages 
similar tc PL/I or XPL. 

The remaining sections provide system notes on the use 
of PL/M, including compiler error messages, control toggles, 
and execution controls and commands. Appendix A contains 
sample PL/M programs; it may be useful for the reader to 
refer occassionally to this appendix to find instances of 
the various statements as they are discussed in Sections II 
and III. 
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II. A TUTORIAL APPROACH TO PL/M. 



As mentioned above, this section describes the PL/M 
programming language from a tutorial viewpoint. The various 
structures of PL/M are introduced at various levels of 
complexity. Examples of each of the constructs are also 
given. The overall structure of a PL/M program is given 
first. 

1-=. The Organization of a PL^M Program^ 

A PL/M program is arranged as a sequence of 
declarations and statements separated by semicolons. The 
declarations allow the programmer to control allocation of 
storage, define simple macros, and define procedures. 
Procedures are subroutines which are invoked through certain 
statements in PL/M. These procedures may contain further 
declarations which control storage allocation and define 
nested procedures. The procedure definition capabilities of 
PL/M allow modular programming; that is, a particular 
program can be divided into a number of subtasks, such as 
processing teletype input, converting from binary to decimal 
forms, and printing output messages. Each of these subtasks 
is written as a procedure in PL/M. These procedures are 
conceptually simple, are easy to formulate and debug, are 
easily incorporated into a large program, and form a basis 
for library subroutine facilities when writing a number of 
similar programs. 

In addition to the procedure declaration facilities, 
PL/M allows a number of data types to be declared and used 
"in a program. The two basic data types are Bjfte and 
Address. A Byte variable or constant is one which can be 
represented in an eight-bit word, while an Address variable 
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or constant requires sixteen bits (doable byte) . The* 
programmer can declare variable names in a PL/M program to 
represent Byte and Address values. PL/M also allows the 
vectors of Byte or Address variables to be declared. 

A number of arithmetic logical, and relational 
operations are defined in PL/M on Byte and Address variables 
and constants. These operators and values are combined to 
form expressions which resemble elementary algebraic 
expressions. The PL/M expression 

X * ( Y - 3 ) / R 
represents the calculation of the value of X times the 
quantity Y- 3 divided by the value of R . When values in 
expressions . are both Byte and Address type, PL/M 
automatically converts the Byte value to an Address value. 

Expressions are the major components of most PL/M 
§£<l£i~JS£H£5« A simple statement form is the PL/M assignment 
statement which allows the programmer to compute a result 
and store it in a location defined by a variable name. 
Thus, the assignment 

Q = X * (Y-3) / R 
first causes the computation of the expression to the right 
of the equal sign. The result of this computation is then 
saved in the memory location represented by the variable 
name Q. 

Additional statements are provided in PL/M for 
conditional tests and branching, iteration control, and 
procedure invocation with parameter passing. 

Input and output statements in PL/M allow the 
programmer to read the eight-bit value latched into a 
particular MCS-8 input port, or set the value of an 
eight-bit output port. Procedures can be defined which use 
these basic input and output statements to perform more 
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complicated I/O functions, 

A compile-time macro processing facility is also 
provided in PL/M . This facility allows the programmer to 
define a name in the program to represent an arbitrary 
sequence of characters. Each time the name is encountered, 
the corresponding character sequence is substituted into the 
source program. 

The section which follows provides a detailed 
description of the format of a PL/M program. 

2^ Basic Constituents of a PL/M Program. 

PL/M programs are written in free-form. That is, the 
input lines are column independent and blanks can be freely 
inserted between the elements of the program. The only 
requirement is that the declarations and statements are all 
terminated with a semicolon. The characters recognized by 
PL/M are given below. These characters can be combined to 
form identifiers and reserved words. 

2.1. PL/M Character Set. The character set recognized 
by PL/M is a subset of both the ASCII and EBCDIC character 
sets. The valid PL/M characters consist of the alphanumerics 

0 1 2 3 4 5 6 7 8 9 
ABCDEFGHIJKLMNOPQR STUVWXYZ 
along w ith* the special characters 

$=./()+-•*,<>:; 

all other characters are ignored by PL/M (a blank is 
substituted for an unrecognized character) . 

Special characters and combinations of special 
characters have particular meanings in a PL/M program, as 
shown below. 

Symbol Name Use 
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/ 

( ) 

+ 

* 
< 
> 

<= 
>= 
<> 



dollar compiler controls, number 

sign and identifier spacer 

equal relational test and assignments 

assign imbedded assignments 

dot address indicator 

slash division symbol and comment delimiter 

parens list and subscript delimiter 

plus addition 

minus subtraction 
apostrophe string delimiter 

asterisk multiplication and comment delimiter 
less 
greater 
less or 
equal 

greater " 
or equal 

not equal M 

colon label delimiter 

semicolon declaration and statement delimiter 



relational tests 
it 

it 



2.2. Identifiers and Reserved Words. A PL/M 
identifier is used to represent names of variables , 
procedure names, macro names, and statement label names. 
Identifiers can be up to 31 characters in length; the first 
character must be alphabetic, and the remaining characters 
can be alphabetic or numeric. Imbedded dollar signs ($) are 
ignored by PL/M, and can be used to improve readability of a 
name. Thus, valid identifiers are 

X 

GAMMA 
LONGIDENTIFIER 
INPUT$COUNT 



Note, however, that there are a number of reserved 
words in PL/M which cannot be used as names in a PL/M 
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program. These reserved words are shown below 
Reserved Word Use 

IF conditional tests and branching 

THEN 

ELSE 

DO statement grouping 

PROCEDURE and procedure definition 

END 

DECLARE data declarations 

BYTE 

ADDRESS 

LABEL 

INITIAL 

DATA 

LITERALLY 



BASED 

GO unconditional branching 

TO and iteration control 
BY 

GOTO 
CASE 
WHILE 

CALL subroutine call 

RETURN subroutine return 

HALT machine stop 

OR logical or 

AND logical and 

XOR logical xor 

NOT logical not 

MOD remainder after division 

PLUS add with carry 

MINUS subtract with carry 
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EOF 



end-of-f ile 



Blanks may be inserted freely around identifiers and 
special characters. Blanks are not necessary, however, when 
two identifiers are separated by a special character. Thus, 
the expression 

X * ( Y - 3 ) / R 

is equivalent to 

X* (Y-3)/R 

in PL/M. 

2. 3. Comments. Explanatory remarks can be used 
throughout a PL/M program to improve readability and provide 
a measure of self- documentation. Comments are sequences of 
symbols from the character set of PL/M bounded by the symbol 
pairs /* and */. Thus, the sequence 

/*THIS IS A COMMENT ABOUT COMMENTS*/ 
is completely ignored by the PL/M compiler, and has no 
effect on the program. Comments may be freely interspersed 
in a PL/M program, and may appear anywhere a blank is valid. 

JL PjL/M S ta tement Organization. 

The statements found in PL/M programs are one of three 
basic types: simple statements, condi tio nal statements, and 
groups. 

An example of a simple statement is thp. PL/M assignment 

A = B + C * D; 

Note that simple statements are always followed by a 
semicolon. Other forms of simple statements are defined in 
later sections. 

Conditional statements are preceded by the reserved 
word IF and contain one or more other statements as a part 
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of the statement body, A conditional statement could be 
written in PL/M as 

IF A > B THEN A = B; 
which assigns the value of B to the variable A only if A's 
value is greater than B f s value. 

A more complicated conditional statement involves an 
alternative, denoted by the reserved word ELSE, The 
conditional 

IF A > B THEN C = A; ELSE C = B; 
assigns the larger of the two values A and B to the variable 
C. 

Statements can be collected together in groups which are 
delimited by the reserved words DO and END. These groups of 
statements are then treated as a single statement in the 
flow of control. The group could , for example, become a 
part of a conditional statement: 

IF A > B THEN 

DO; A = B; B = C; 

END; 

which would perform the two assignments to A and B only if 
A is greater then B. 

Simple statements, conditional statements, and groups 
can be labelled for control flow purposes. The label may be 
a PL/M identifier, which precedes the statement, and is 
separated from the statement by a colon (:). Thus, 

LAB1 : A = B + C * D; 
is an example of a simple statement labelled by LAB 1 . 

The exact details of the various simple, conditional, 
and statement groups are discussed in following sections. 
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4. PL/M Data Elements^ 

PL/M data elements represent single bytes, double 
bytes, and strings corresponding to 8-bit values, 16-bit 
values, and ASCII character strings of length greater than 
two. Data elements can be either variables or constants. 
Variables are PL/M identifiers corresponding to values which 
can change during execution of a PL/M program, while 
constants have a value which is fixed. The expression 

X * ( Y - 3 ) / R 
involves the variables X, Y, and R, and the constant 3. 

Variables must declared in PL/M programs before they 
are used in expressions. The declaration tells the PL/M 
compiler how to handle expressions and assignments which 
involve the variable. 

4.1. Variable Declarations. A declaration for a 
variable or set of variables is headed by the reserved word 
DECLARE and followed by either a single identifier or a list 
of identifiers enclosed in parenthesis, and terminated by 
one of the data types BYTE or ADDRESS. Thus, valid PL/M 
declarations are: 

DECLARE X BYTE; 
DECLARE (Q,R,S) BYTE; 
DECLARE (U # V,W) ADDRESS; 
Thus, expressions involving only the variables X, Q, R, and 
S produce single byte operations, while expressions 
involving 0 # V, or W would produce double byte operations 
and results. 

Additional facilities are present in PL/M for declaring 
vectors, macros, and data lists. These facilities are 
discussed in later sections. 
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4.2. Byte and Double Byte Constants. Constants 
representing single and double byte values can be expressed 
in several different ways in PL/M. First # PL/M accepts 
constants in the binary, octal, decimal, and hexadecimal 
bases. In addition, ASCII gtrings of length one or two are 
translated tc single and double byte constants. 

In general, the base of a constant is represented by 
one of the letters 

B 0 Q D H 

following a sequence of digits. The letter B represents, a 
binary constant, while the letters 0 and Q denote octal 
constants. The letter D optionally follows decimal numbers. 
Hexadecimal numbers consist of sequences of hexadecimal 
digits (0,1, ... , 9, A ,B ,C ,D ,E ,F) followed by the letter H. 
Note that the leading digit of a hexadecimal number must be 
a decimal digit to avoid confusion with a PL/M identifier (a 
leading 0 is always sufficient) . Any number not followed by 
one of the letters B, 0, Q, D, or H is assumed to be 
decimal. The numbers must always be capable of 
representation as a single or double byte value (a maximum 
of 16 bits). Thus, the following are valid constants in 
PL/M 

2 33Q 110B 33FH 55D 55 0BF3H 65535 

The dollar sign symbol may be freely inserted within 
constants to improve readability. Thus, the binary constant 

11110110011B 

could be expressed as 

111$1011$0011B 

ASCII strings are represented by PL/M characters 
enclosed within apostrophe symbols (■). Strings of length 
one or two translate to byte and double byte values as 
mentioned previously. Thus, the string 

■A 1 
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is the same as 65 decimal. A pair of apostrophes (■•) 
within a string results in a single apostrophe in the 
internal representation of the string. Thus, the string 
• 1 1 Q f becomes a single apostrophe followed by the character 

Q. 

5 j. Well^Formed Expressions and Assignments., 



PL/M expressions can now be more completely defined. A 
well-formed expression consists of basic data elements 
combined through the various arithmetic, logical, and 
relational operators, in accordance with the usual algebraic 
notation. Thus, an expression consists of a simple data 
element, such as a number or variable, or an expression can 
be two (sub) expressions separated by an operator: 

expression 1 operator expression2 

Examples are 

A + B 
A + B - C 
A * E + C / D 

Operators in expressions have an assumed £££cedence which 
determines the order in which the operations in the 
expression are evaluated. The valid PL/M operators are 
listed below from highest to lowest precedence. Operators 
listed on the same line are of egual precedence and are 
evaluated from left- to-right when they occur in an 
expression. 

* / MOD 
♦ - PLUS MINUS 
< <= <> = >= > 

NOT 
AND 
OR XOR 

The expression 

A + B * C 

for example, results first in the computation of B times C 
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since the multiplication (*) has a higher precedence than 
the addition (+) • The result of this computation is then 
added to the value of A . 

Parenthesis can be used to override the assumed 
precedence ty enclosing subexpressions which are to be 
computed first. The expression 

( A + B ) * C 

causes A + B to be evaluated first. The result is then 
multiplied by C's value. Following are a number of 
well-formed PL/M expressions 

A + B - C * D 
A - ( B + C ) * D 
A / ( B + C ) * D 
A / ( B + C ) 
A OR B AND OFH 
A + B > C - D 

Each expression results in either a single or double 
byte value. The number of bytes in the result is determined 
by the number of bytes required by the subexpressions in the 
result. Generally, if both operands in an expression are 
byte values, the result is a byte value. If either operand, 
however, is a double byte, the result is a double byte 
value. In this case, the shorter operand is padded with 
high-order zeroes. 

Two exceptions to these rules occur in PL/M . The first 
is in the case of the *, /, and MOD operations. These 
operators always result in a double byte value. The second 
exception is the case of relational operators. A relational 
test results in either a true or false condition. A true 
condition is represented in PL/M by a byte value equal to 
255 (all bits are 1 f s), and a false condition is represented 
by the byte value 0. 
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Suppose the variables X # Y, and Z have been declared as 
follows : 

DECLARE X BYTE ; 
DECLARE (Y,Z) ADDRESS; 
given these declarations / the expressions below yield 
results with the precision shown to the right cf the 
expression: 

X + 5 single byte result 
X + 300 double byte result 
X + Y double byte result 
Y + Z double byte result 
X / 5 double byte result 
X + ( Y > Z ) single byte result 

The NOT operator is a unary operator, and thus PL/m 
expressions involving NOT take the form 

NOT expression 

The effect of the NOT operator is that all the bits of the 
expression are inverted (1,s become O's, and O's become 
1's). In particular, true conditions change to false 
conditions, and false conditions revert to true. Examples 
of the use of the NOT operator are 

NOT A 

NOT (A > B) 

NOT A OR B 

For convenience, a unary minus sign is also allowed in 
PL/M expressions. The form of the unary minus in an 
expression is 

- expression 

The ef€ect is exactly the same as the expression 

0 expression 

where the f, - ,, in this last case is the subtract operator. 
The expression -1, for example, is equivalent to 0-1, 
resulting in the byte value 255. 
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Recall that the assignment statement is used to store 
the result of an expression into a variable. The declared 
precision of the assigned variable affects the resulting 
store operation. If the assigned variable is a single byte 
variable, and the expression is a double byte result, the 
high order byte is omitted in the store. Similarly, if the 
expression yields a single byte result, and the receiving 
variable is declared as type ADDRESS, the high order byte is 
set to zero. 

It is often convenient to assign the same expression to 
several variables. This is accomplished in PL/M by listing 
all the variables to the left of the egual sign, separated 
by commas. The variables A, B, and C could all be set to 
the expression X + Y with the single assignment 

A, B, C = X + Y 

A special form of the assignment is allowed within 
expressions in PL/M. The form of an imbedded assignment is 

(v ariabl e : - ex£ression ) 
and may appear anywhere an expression is allowed in PL/M. 
The expression to the right of the assign symbol (:=) is 
evaluated and then stored into the variable on the left. 
The value of the imbedded assignment is the same as the 
expression on the right. The expression 

A + ( B : = C + D ) - ( E := F / G ) 
results in exactly the same value as 

A+(C+D)-(F/G) 
except that the intermediate results C+D and F/C are stored 
into B and E, respectively. These intermediate computations 
can then be used at a later point in the program without 
recom putation. 

Note that the form 

A=(B:=(C:=X+Y)) 
has exactly the same effect as the multiple assignment to A, 
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B, and C given previously. 

It is now possible to 'construct a simple program based 
upon these expressions and assignments. 

6jl h Simple Example . 



The following PL/M sample program reads data from input 
ports 0 and 1 , and writes the larger of these two values at 
output port 0. Note that the two pseudo-variables INPUT (0) , 
and INPUT (1) act like PL/M single byte variables, but have 
the effect of reading the values latched into input ports 0 
and 1, respectively. Similarly, the pseudo-variable 
OUTPUT (0) can be used in an assignment statement in order to 
write values to output port 0. 

The complete PL/M program for performing this simple 
function is shown below 

DECLARE (I,J # MAX) BYTE; 

/* READ INPUT PORT 0 AND SAVE IN VARIABLE I */ 
LOOP: 

I = INPUT(O) ; 

/*■ NOW READ INPUT PORT 1 AND SAVE IN VARIABLE J */ 

J = INPUT (1) ; 
/* SET MAX TO THE LARGER OF THESE TWO VALUES */ 

IF I > J THEN MAX = I; ELSE MAX = J; 
/* WRITE THE VALUE OF MAX AT OUTPUT PORT 0 */ 

OUTPUT (0) = MAX ; 
/* GO BACK AND READ THE INPUT PORTS AGAIN */ 
GO TO LOOP; 
EOF 



The symbol EOF (end-of-f ile) is reguired in PL/M to 
indicate the end of the program. Note also that the GO TO 
statement causes program control to restart at the point 
labelled •LOOP: 1 where input values are read again. 
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In order to effectively construct more comprehensive 
PL/M programs, it is necessary to consider the structure of 
PL/M statement groups, including the loop control groups. 

jL DO Grouj£S_. 

As mentioned previously, statements can be grouped 
together within the bracketing reserved words DO and END as 
a DO-group. Recall that the simplest DO-group is of the 
form 

DO; 

statement-1 ; 
statement-2 ; 

./ 

• • • 

statement-n ; 
END; 

Several additional ' DO-groups are defined in PL/M which 
control program flow. These groups are shown below. 

7.1. The DO-WHILE Group. One form of the DO-group is 
called a DO- WHILE . The DO-WHILE has the form 
DO WHILE expression; 
statement- 1 ; 
statement-2 ; 

... 
statement-n ; 
END; 

In this case, the expression following the reserved word 
WHILE is evaluated before the statements within the group 
are executed. If the expression evaluates to true (i.e., 
the rightmost bit of the result is 1) , the statements up to 
the corresponding END are executed. At the end of the 
group, program control is transferred to the top of the 
DO-group and the expression is evaluated again. The group 
is executed over and over until the expression results in a 
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false condition (the rightmost bit is 0). Consider the 
following example: 
A = 1 ; 

DO WHILE A <= 3; 

A = A + 1; 

END ; 

The statement A = A + 1 will be executed exactly three 
times. The value of A at the end of execution of the group 
is four. 

1.2. The Iterative DO-group. An Iterative DO-group 
allows a group o€ statements to be executed a fixed number 
of times. The simplest form of the Iterative DO-group is 
DO variable = expressionl TO expression2; 
statement- 1 ; 
statement-2 ; 

... 
statement-n ; 
END; 

The effect of this group is to first store expressionl into 
the variable following the DO, The group is executed with 
this initial value once, and control returns to the top of 
the DO, The value of the variable is incremented by 1 and 
tested against 1 expression2. If the incremented value 
exceeds expression2, control, transfers to the statement 
following the END; otherwise, the group is executed once 
again. An example is 

DO 1 = 1 TO 10; 

A = A + I; 

END; 

Note that this DO-group has exactly the same effect as the 
following DO-WHILE: 

1 = 1; 

DO WHILE I <= 10; 
A = A + I; 
1 = 1+ 1 ; 
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END; 



A slightly more complicated form of an Iterative 
DO-group allows a stepping value other than 1; This second 
form is 

DO variable = exprl TO expr2 BY expr3; 
statement- 1 ; 
statement- 2 ; 

• • • 
statement-n ; 
END; 

In this case # the variable following the DO is stepped by 
the value expr3 instead of by 1. 

7.3. The DO-CASE, Another form of the DO-group is the 
DO-CASE statement. The form of a DO-CASE group is 
DO CASE expression; 
statement- 1; 
statement-2 ; 

• • • 
statement-n; 
END; 

The effect of this group is the following. Upon entry to 
the DO-CASE, the expression following the CASE is evaluated. 
The result of this expression is a value k which must be 
between 0 and n-1. This value k is used to select one of 
the n statements of the DO-CASE to execute. The first case 
corresponds to k = 0 (statement- 1) , the second case 
corresponds to k = 1 (statement-2) , and so-forth. Control 
transfers to the selected statement, the statement is 
executed, and control then passes to the statement following 
the END. 

An example of the DO-CASE is: 
DO CASE X - 5; 
X = X + 5; /* CASE 0 */ 
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DO; /* CASE 1 */ 

X = X + 10; Y = X - 3; 

END; 

/* CASE 2 */ 

DO I = 3 TO 10; A = A + I; 
END; 

END /* OF CASES */ ; 

Before giving more comprehensive examples, it is useful 
to define the notion of a subscripted variable and its use 
in a PL/M program. 

8j» Subs crip ted Variables and the INIT IAL Attribute . 

It is often useful in PL/M to reference memory 
locations with an "offset" fronf some base address. This 
feature is allowed in PL/M through subscripting. 

8.1. Subscript Declarations and Value References. A 
subscripted variable is similar to a simple variable with 
the addition of an expression enclosed within parentheses 
following the variable name. The location referenced by the 
subscripted variable is the sum of the base address of the 
variable and the subscript expression. Any variable name 
can be subscripted in PL/M. 

Suppose a PL/M programmer declares the variables X, Y, 
and Z as follows 

DECLARE (X,Y,Z) BYTE; 
The first memory location can be referenced simply as X or 
as the subscripted variable X (0) . Similarly, X(1) refers to 
the location Y # and X (2) references Z's location. 

PL/M also allows a fixed number of locations to be set 
aside in the declaration statement. These fixed locations 
start at the variable name specified in the declare 
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statement. For example, the statement 

DECLARE X(100) BYTE; 
provides a memory area of 100 bytes starting at X. In this 
case, X is called a vector. Note that the size of a vector 
must always be a constant. 

Several vectors of the same length can be declared in 
the same declare statement. The statement 

DECLARE (U,V,W) (50) ADDRESS; 
causes three vectors of length 50 (each) to be allocated in 
contiguous memory locations. Note, however, that these 
vectors are of type ADDRESS, and thus each element reguires 
two bytes; hence, U takes up the first 50 two-byte 
locations, reguiring 100 bytes altogether. The storage for 
the second vector starts at V and reguires the next 100 
bytes. Similarly, W occupies the 100 byte area following V. 

As mentioned previously, a subscript can be thought of 
as a displacement from a base address. This displacement, 
however, is affected by the declared precision of the 
variable. That is, if the declared precision is BYTE, then 
the displacement is measured in single bytes. If, however, 
the variable is type ADDRESS, the displacement is measured 
in double bytes. Thus, given the declaration of U, V, and W 
above, the first element of U is U(0), and the last element 
is U(49). The first element of V is V (0) , or U (50) . 
Storage is always arranged so that double byte variables are 
at memory addresses which are even numbers; hence, there is 
sometimes one extra word allocated between contigous byte 
and double byte variables. 

Before continuing, it should be noted that the 
subscripts can be complicated expressions, and not 
necessarily just the simple constants shown above. Note 
also that subscripted variables can occur everywhere a 
simple variable is allowed, including expressions and 
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assignments. A single exception to this rule is that a 
subscripted variable cannot be used as the indexing variable 
in an Iterative DO group. 

Two built in functions are provided in PL/M which are 
based upon the declared size of a vector. These functions 
take the forms 

LENGTH (identifier) and LAST (identifier) 
where the identitifers correspond to variables declared 
previously. These forms can appear anywhere an expression 
is allowed in PL/M, and result in the declared length and 
last element number of the specified variable, respectively. 
The following program, for example, uses the LAST function 
to set all the elements of a vector v to the constant 5. 
DECLARE V(100) BYTE; 
DECLARE I BYTE; 

DO I = 0 TO LAST(V) ; 

V(I) = 5; 

END; 

EOF 

8.2. The INITIAL Attribute. The values of variables 
can be initialized in a declaration statement using the 
INITIAL attribute. This attribute takes the form 

INITIAL (constant-1 ,constant-2, . . . , constant-n) ; 
and must directly follow the type (BYTE or ADDRESS) in the 
declare statement. 

The purpose of the INITIAL attribute is to preset the 
values of memory locations starting at the location named in 
the declarations. The constants given in the INITIAL 
attribute are placed into memory before the program starts 
(these constants become a part of the object code and must 
be loaded into random-access memory) . The following are 
valid variable declarations which use the INITIAL attribute. 

DECLARE X BYTE INITIAL(10); 
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DECLARE Y(10) BYTE INITIAL (1,2,3,4,5,6,7,8,9,10); 
DECLARE Z(100) BYTE INITIAL 
(•SHORT 1 , •STRING 1 ,0FH,33) ; 
DECLARE U(100) ADDRESS INITIAL (3 , 4 , 333Q ) ; 
DECLARE (Q,R,S) BYTE INITIAL ( 0, 1 , 2) ; 
Note that the number of bytes required to hold the 
constants given in the INITIAL attribute need not correspond 
to the length declared for the variable. The constants are 
placed into memory without truncation starting at the first 
byte allocated in the declare statement. 

The use of subscripted variables is shown in the 
example which follows. 

9^ A Sorting Program . 

It is now possible to construct a more complicated 
program, given the expressions, DO-groups, and subscripted 
variables which have been presented. In the program which 
follows, a vector A is initialized to a set of constants in 
unsorted order. The program below sorts the values of A 
into ascending order. 

/* FIRST DECLARE A VECTOR TO HOLD THE 
VALUES TO SORT. 

ASSUME THERE ARE NO MORE THAN 10 ELEMENTS TO BE 
SORTED. EACH ELEMENT IS BETWEEN 0 AND 65535 */ 
DECLARE A (10) ADDRESS INITIAL 
(3 3, 10,2000,400,410,3,3 ,33,500,1999) ; 
/* START THE 'BUBBLE SORT' AT THIS POINT 
EXAMINE ADJACENT ELEMENTS OF f A f AND SWITCH INTO 
ASCENDING SEQUENCE. RECYCLE UNTIL NO MORE 
SWITCHING OCCURS */ 
DECLARE (I, SWITCHED) BYTE, 

TEMP ADDRESS; 
SWITCHED = 1 ; 

DO WHILE SWITCHED; SWITCHED = 0; 



27 



/* GO THROUGH 1 A 1 ONCE AND LOOK FOR A PAIR 
WHICH NEEDS TO BE REVERSED */ 
DO. I = 0 TO 8; 
IF A (I) > A (1+1) THEN 
DO; SWITCHED = 1; 
TEMP = A(I); A(I) = A (1+1) ; 
A(I+1) = TEMP; 
END; 

END'; 

END; 

/* THE VALUES IN 1 A 1 ARE NOW IN ASCENDING ORDER */ 
EOF 

1 C. Procedure Definitions and Procedure Calls, 

The procedure capabilities \of PL/M are discussed in 
this section. A procedure, or subroutine, is a section of 
PL/M source code which is declared, but not executed 
immediately. Instead, the procedure is called from various 
parts of the program. The call amounts to a transfer of 
program control from the calling point to the procedure. 
The procedure executes, and, upon completion, returns to the 
statement following the call. 

The use of procedures in PL/M allows construction of 
modular programs, allows construction and use of subroutine 
libraries, eases programming and documentation, and reduces 
generated code when similar program segments are used at 
several points in the program. 

Procedures are described in two parts: how to define 
them, and how to use them. 

10.1. Procedure Declarations. A procedure declaration 
consists of four main parts: the procedure name, 
specification of values which are sent to the procedure, the 
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type of the returned value (i.e., BYTE, ADDRESS, or no 
returned value), and the description of the actions of the 
procedure, called the procedure body. The procedure may be 
invoked anywhere in the program after it is declared. The 
form of a procedure declaration is 

procedure-name: PROCEDURE argument-list procedure-type; 

statement- 1 ; 

statement- 2; 

statement-n; 

END procedure-name; 

The procedure-name is any valid PL/M identifier, and is 
used to name the procedure so that it can be called at a 
later point in the program. 

The argument-list takes the form 

(argument- 1 , argument- 2,. . . ,argument-n) 
where argument-1 through argument-n are valid PL/M 
identifiers. These identifiers are called formal parameters 
and are used to hold particular values which are sent to the 
procedure from the point of invocation. Each of these 
parameters must also appear in a declarations statement 
within the procedure body (before the corresponding END). 
Note that the argument- list can be omitted altogether if no 
parameters are passed to the procedure. 

The procedure-type is either BYTE, ADDRESS, or can be 
omitted if the procedure does not return a value to the 
calling point. The procedure-type defines the precision of 
the value returned so that proper type conversion takes 
place when the procedure is invoked as a part of an 
expression. 

The execution of a procedure is terminated with a 
RETURN statement in the procedure body. The RETURN 
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statement takes the form 

RETURN; 

or 

RETURN expression; 
The first form is used if the procedure-type is omitted (no 
value is returned to the calling point) . The second form is 
used if the procedure-type is BYTE or ADDRESS. The 
expression following the RETURN is brought back to the 
calling point in this case. 

The statements within the procedure body can be any 
valid PL/M statements, including nested procedure 
definitions and invocations. A number of valid PL/M 
procedure declarations are listed below. 
NULL: PROCEDURE; 
RETURN; 
END NULL; 
SUM: PROCEDURE (X, Y) ; 

DECLARE (X,Y) ADDRESS: 

/* ASSUME U IS PREVIOUSLY DECLARED */ 

U = X + Y; 

RETURN; 

.2ND SUM; 
ZERO: PROCEDURE BYTE; 

RETURN 0; 

END ZERO; 
IDENTITY: PROCEDURE (X) ADDRESS; 

DECLARE X ADDRESS; 

RETURN X; 

END IDENTITY; 
PLUSXY: PROCEDURE (X,Y) BYTE; 

DECLARE (I,X,Y) BYTE; 

I = X - Y; 

RETURN X + Y; 

END PLUSXY; 
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10.2. Procedure Calls. Procedures can be invoked 
anywhere after their declaration. There are two possible 
forms of the call, depending upon whether the procedure-type 
is present or omitted in the procedure declaration. 

If the procedure-type is omitted, then the procedure 
does not return a value to the point of invocation. In this 
case, the form of the call is 

CALL procedure-name argument-list 
where the procedure-name and argument-list correspond to 
those defined above. The effect in PL/M is to assign the 
actual values in the argument-list at the call to the 
identifiers given in the argument-list in the procedure 
declaration. The elements of the argument-list in the call 
are called actual parameters, and are not restricted to 
simple PL/m identifiers. In fact, any valid PL/M expression 
can be placed in the argument-list. These expressions are 
all evaluated in the actual parameter list before they are 
assigned to the corresponding identifiers in the formal 
parameter list. If the procedure is declared with an empty 
formal parameter list then the actual parameter list is also 
omitted. Control is then transferred to the beginning of 
the procedure named by the procedure-name. 

Thus, given the procedure definitions above, the 
following are all valid procedure calls 

CALL NULL; 
CALL SUM (5,3) ; 
CALL SUM (Q, R + Z) ; 
In the last case, for example, the value of Q is first 
placed into X in the procedure SUM. The value of R + Z is 
then computed and stored into the formal parameter Y. 
Control then passes to the procedure SUM where the variable 
U is set to the sum of these two values (it is assumed that 
U has been declared ahead of the procedure SUM). Note that 
automatic type conversion occurs between BYTE and ADDRESS 
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values when the actual parameters are assigned to the formal 
parameters. 

The second form of a procedure call occurs when the 
procedure is declared with a procedure-type of BYTE or 
ADDRESS. In this case, the procedure call results in a 
value which can be used in an expression. The form of the 
call is 

procedure-name argument-list; 
and may appear anywhere a PL/M expression is allowed* The 
following calls demonstrate a number of valid PL/M procedure 
invocations 

I = IDENTITY (I) ; 
X = PLUSXY(X,Y) ; 
X = Q-PLUSXY (XtY,Q)/ (X-Y) ; 
DO I=PLUSXY (Q, R) TO PLUSXY (Z+R, Q) +10; END; 

As an example of a procedure declaration and call, 
consider the sorting program given earlier. The segment of 
the program which performs the sort can be redefined as a 
procedure. Assume the procedure has a single formal 
parameter which gives the upper bound of the sort loop. The 
value returned by the procedure is the number of switches 
reguired to sort the vector. 

DECLARE A (10) ADDRESS INITIAL 

(33, 10,20 00,400,410,3,3,33,5 00,19 99) ; 

SORT: PROCEDURE (N) ADDRESS; 

/* SORT THE VECTOR AT «A« OF LENGTH 
N + 2. RETURN THE NUMBER OF SWITCHES 
REQUIRED TO PERFORM THE SORT */ 
DECLARE (N, I, SWITCHED) BYTE, 

(T1,T2, COUNT) ADDRESS; 
SWITCHED = 1; COUNT = 0; 

DO WHILE SWITCHED; SWITCHED=0; 
DO I = 0 TO N; 
T1 = A (I) ; T2=A (1 + 1) ; 
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IF T1 > T2 THEN 

DO; A (1+1) = T1 ; 

A (I) = T2; SWITCHED = 1; 

COUNT = COUNT + 1 ; 

END; 

END; 

END; 
RETURN COUNT; 
END SORT; 

/* ' THE SORT PROCEDURE IS DECLARED ABOVE, 
CALL SORT WITH N - 2 = 1 0 - 2 = 8 */ 
DECLARE NSWITCHES ADDRESS; 
NSWITCHES = SORT (8) ; 
EOF 

The program shown above illustrates a difficulty in 
parameter passing which has not yet been considered. In 
particular, the SORT procedure would be much more useful as 
a library subroutine if several different vectors could be 
processed by the same subroutine. As shown , the SORT 
procedure is only capable of sorting the particular vector 
A. 

The next section introduces the notion of based 
variables which overcome this difficulty, 

JJLl Based Variables^ 

Based variable features of PL/M allow computation of 
variable addresses during execution of a program, A based 
variable is similar to the variables discussed previously, 
except that no storage is allocated for the variable. 
Instead, corresponding to each based variable is an address 
variable, called the base, which determines the memory 
address for the based variable during execution. 
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Based variables are declared using the BASED attribute 
which specifies the base. The form of the BASED attribute 
is 

BASED identifier 
where the identifier is a previously declared ADDRESS 
variable name. The BASED attribute must immediately follow 
the name cf the based variable in the declaration statement . 
The following are examples of PL/M based variable 
declarations 

DECLARE X BASED A BYTE; 
DECLARE (X BASED XA , Y BASED YA) ADDRESS; 
DECLARE (Q BASED QA) (100) BYTE; 
In the first case, a byte variable called X is declared. 
The declaration implies that X will be found at the location 
given by the address variable A (which must be declared as 
an ADDRESS variable elsewhere) . 

The second declaration above defines two based 
variables X and Y both of type ADDRESS which are located at 
XA and Y A , respectively. 

The third declaration defines a vector based variable 
called Q based at QA. Note that the vector size need not be 
stated, however, since no storage is allocated to Q by the 
PL/M compiler. The only use for the vector size is to 
provide values for the LENGTH (Q) and LAST (Q) built-in 
functions described previously. 

In order to make effective use of based variables, it 
is necessary to allow programmatic reference to the assigned 
address of a non-based variable. The memory location 
assigned to a variable is designated by preceding the 
variable name with a dot symbol (.). Thus, the expressions 

.A and .A (5) 

yield the address of A and the address of A (5) , 
respectively. If A is a BYTE variable, the value of .A+5 is 
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the same as .A (5). Similarly, if A is of type ADDRESS, then 
• A+10 is the same as .A (5) . The address reference to a 
based variable is allow and results simply in the value of 
the base. 

An address reference using the dot symbol can be used 
anywhere an expression is valid in PL/M. 

As an illustration of the use of based variables, 
consider the following loop which initializes the elements 
of a vector to their respective element numbers 
DECLARE A (100) ADDRESS; 
DECLARE I BYTE; 

DO I = 0 TO LAST (A) ; 

A (I) = I; 

END; 

EOF 

This same function can be performed (rather 
inefficiently) with the following loop using based variables 
DECLARE A (100) ADDRESS, 

QA ADDRESS, Q BASED QA ADDRESS; 
/* SET QA TO THE BASE ADDRESS OF A*/ 
QA = • A; 
DECLARE I BYTE; 

DO I = 0 TO 99 ; 

Q = I; QA = QA + 2; 

END; 

EOF 

Note that QA starts at the base of A and moves up by 
two bytes on each iteration since each element of A occupies 
two bytes* 

Based, variables are, most commonly found in procedure 
parameter passing. It is often necessary to return more 
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than one value fr.om a procedure. In this case, the addres s 
of an actual parameter can be passed to the procedure 
instead of the value of the actual parameter. The 
corresponding formal parameter is declared within the called 
procedure as an address variable. This formal parameter is 
then used as a base for a based variable whithin the 
procedure. Any changes to the based variable then alter the 
corresponding actual parameter. 

In the case of the SORT procedure, for example, the 
address of a vector to be sorted can be sent as an actual 
parameter. The SORT procedure then operates upon a locally 
defined based variable. The revised SORT procedure is shown 
below 

SORT: PROCEDURE (Q, N) ADDRESS; 

DECLARE (N, I, SWITCHED) BYTE, 
(Q,T1,T2, COUNT) ADDRESS; 
/* AND THEN SET UP THE BASED 
VARIABLE TO SORT */ 
DECLARE A BASED Q ADDRESS; 
SWITCHED = 1; COUNT = 0; 

DO WHILE SWITCHED; SWITCHED=0; 
DO I = 0 TO N; 
T1 = A (I) ; T2=A (1 + 1) ; 
IF T1 > T2 THEN 

DO; A (1+1) = T1 ; 
A (I) = T2; SWITCHED = 1; 
COUNT = COUNT + 1 ; 
END; END ;END; 
RETURN COUNT; 
END SORT; 
DECLARE B(10) ADDRESS INITIAL 

(33, 10,2000,400,410,3,3,33,500,1999) ; 
DECLARE C (5) ADDRESS 

INITIAL ('A* ,32,0FFFH,22Q,2D) ; 
/* NOW SORT THE VECTORS B AND C */ 
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DECLARE (N1,N2) ADDRESS; 
N1 = SORT (,B,LAST(B) -1)-; 
N2 = SORT (,C, LENGTH (C) -2) ; 
EOF 

The SORT procedure has two formal parameters Q and N. 
Q is an ADDRESS variable which gives the base address of the 
vector to be sorted. The parameter N gives the upper bound 
in the sort loop, as before. The variable A is declared 
inside SORT as an ADDRESS variable based at Q. Thus, 
references to A inside SORT are actually references to 
memory locations starting at the value of Q. 

The SORT procedure is called twice. First, the vector 
B is sorted by sending the base address of B. The second 
call sorts C by passing the base address of C as the first 
actual parameter* 

The section which follows introduces the concept of a 
long constant* These long constants allow manipulation of 
data which exceed two bytes in length, 

IZz, iong Constants, 

Recall that PL/M allows direct representation of 
numeric and string constants which reguire a single or 
double byte internal representation. It is often useful, 
however, to manipulate constants of indefinite length. This 
facility is provided in PL/M through the use of long 
constants . 

A PL/M long constant is a set of contiguous memory 
locations represented by the address of the first byte. The 
memory locations for long constants are allocated in the 
same area as the program storage, and are initialized to the 
string and numeric values specified in the constant (program 
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steps and long constants are normally a part of the Read 
Only Memory portion of storage, and thus cannot be altered 
during execution) . The first form of a long constant is 
simply 

. constant 

where the constant is a string or numeric value. The result 
of this expression is an address value providing "the 
location of the constant. The second form allows several 
constants to be gathered together and based at the same 
address. This form is 

• (const an t-1 , constant- 2 , . . . , constant-n) 
Again, the result of this expression is an address value 
giving the starting position of the constants in memory. 

Valid PL/M long constants are 

. 335 

. '.THIS. IS A LONG CONSTANT STRING 1 

y ' 

. (■ THREE STRING 1 ^CONSTANTS') 
. (3 f 1 CONSTANTS 1 , 0FFE2H) 
These long constants can appear anywhere a PL/M expression 
is allowed. 

Another form of a long constant allows the constant to 
be named and accessed as a subscripted variable. This 
second form is a particular case of t he declare statement 
called a DATA declaration. The form is 

DECLARE identifier DATA (constant-1 . . ,constant-n) ; 
The following are valid PL/M DATA declarations 

DECLARE X DATA ( 1 LONG STRING 1 ); 
DECLARE Y DATA (0 # 1 # 2 f 3 # l STRING l r 4) ; 
These two declarations have an effect similar to INITIAL 
declarations except that new values cannot generally be 
assigned to the elements of X and Y . In addition , there is 
an automatic vector size assigned to eleme nts declared in a 
DATA declaration which is the number of bytes required to 
hold the constants listed in the DATA attribute. In the 
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above case, both X and Y are treated as BYTE variables with 
vector size 11. As a result, the LENGTH and LAST built-in 
procedures can be applied to DATA variables to determine the 
length of the constant string. 

Given the above DATA declaration the expressions below 
evaluate to the result shown on the right 

X (0) = f L f 
X(10) = f G' 
Y(3) =3 
LENGTH (Y) = 11 

As an example, consider the following PL/M procedure, 
called EQUAL, which compares two long constants for 
eguality. EQUAL has two formal parameters which give the 
base addresses of two long constants. The last byte of each 
constant is Offh. EQUAL returns a 1 if the constants match, 
and 0 if not. 

EQUAL: PROCEDURE (AS1,AS2) BYTE; 
DECLARE (AS1,AS2,I) ADDRESS, 

(S1 BASED A S 1 , S2 BASED AS2) BYTE, 
(J1,J2) BYTE; 
/* COMPARE UNTIL A MISMATCH OR OFFH 
IS FOUND IN BOTH STRINGS */ 
J1 , J2, 1 = 0; 

DO WHILE J1 = J2; 
IF J1 = OFFH THEN RETURN 1; 
J1 1 = S1 (I) ; J2 = S2 (I) ; 
1=1+1; 
END; 
RETURN 0; 
END EQUAL; 

Assume that the following declarations occur in the 
program 

DECLARE X DATA ( 1 W ALL A WALL AW AS H 1 , OFFH) ; 
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DECLARE Y DATA ('WALLAWASH' , OFFH) ; 
The EQUAL procedure can be called by 

I = EQUAL (.X,. (■ WALLAWALLAWASH 1 ,0FFH) ) ; 
As a result, I is set to 1. The value of I in the case 

I = EQUAL (.X,. Y) 
is zero since the strings X and Y differ. 

As a final comment, one should note that the 
fundamental difference between DATA variables and BYTE 
variables with the INITIAL attribute is in the allocation 
of storage, DATA variables are stored in the same area as 
program code, as mentioned previously, and cannot generally 
be altered through a PL/M assignment. BYTE variables, on 
the other hand, are allocated in alterable program storage. 
The INITIAL attribute provides data which is preloaded into 
these locations before the program executes (and hence is 
volatile storage) . In this case, these initial values can 
always be changed with assignment statements during 
execution. * 

JiL Scope of Variables . 

An important concept in any block-structured language, 
such as PL/M, is the notion of variable scope. The scope of 
a variable in PL/M is .the range of statements where the 
variable can be used in expressions and assignments. The 
scope of variables is controlled by the arrangement of 
DO-groups and DECLARE statements. A variable is available 
for use only within the DO- END statements in which the 
DECLARE statement for the variable occurs. This range is 
called the scope of the declared variable. 

Consider the following PL/M program, for example: 

1 DECLARE (A,B,C,D) BYTE; 

2 E,C = 10; 

3 A = B + C ; 
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4 DO; 

5 DECLARE (Q,R,S) BYTE; 

6 Q, R = 20; 

7 S = A + Q + R; 

8 END; 

9 D = 2 + A ; 
10 EOF 

The declaration on line 1 defines four variables A, B, 
C, and D which can be used throughout the program. The 
DO-group between lines 4 and 8 contains a declaration of 
three variables Q # R, and S which are defined only within 
the group; that is, although A, B, C, and D can be used 
anywhere in the program, the variables Q, R, and S cannot be 
.referenced outside the range of statements beginning on line 
4 and ending on line 8. These lines delimit the scope of Q, 
R , and S. 

A more complicated structure is given by the following 
skeletal PL/M program 

DECLARE (A,B,C,D) BYTE; /* BLOCK 1 */ 

DO; /* BLOCK 2 */ 
DECLARE (A,E,F, G) BYTE; 

• • • 

DO; /* BLOCK 3 */ 
DECLARE (B,H,I,J) BYTE; 

• • • 

END;/* OF BLOCK 3 */ 

• • • 

END; /* OF BLOCK 2 */ 

DO; /* BLOCK 4 */ 
DECLARE (A,E,K,L) BYTE; 

• • • 

END; /* OF BLOCK 4 */ 
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/* BLOCK 1 IS COMPLETED */ 
EOF 



The declaration of A, B, C, and D at the top of block 1 
makes these variables global to any nested inner blocks in 
the program. That is f they can be referenced anywhere in 
the program where there is no conflicting declaration. 

The variables A # E, F f and G at the top of block 2 are 
said to be lo cal to block 2 and global to block 3. These 
variables cannot be referenced outside block 2. Note that 
the variable A in block 2 conflicts with the declaration of 
A in block 1. In this case, any reference to A within block 
2 refers to the innermost declaration of A, Similarly, the 
variables B # H # I, and J declared at the top of. blcck 3 
cannot be accessed outside block 3. Again, the declaration 
of B in block 3 overrides the outer block declaration of 
this variable name. 

Block 4 is parallel to block 2 in this program. The 
variables A, E, K, and L are local to block 4. Thus, the 
variables E, K, and L are undefined outside block 4, and 
references to A outside block 4 affect the variable A 
declared on the first line. 

The notion of scope of variable names extends to 
procedure names and to formal parameters declared within 
procedures. A procedure declaration is treated the same as 
a DO-group in defining scope of variables. As an example, 
consider the following program 
/* BLOCK 1 */ 
DECLARE (I,J,K) BYTE; 
PI: PROCEDURE (I, Q) BYTE; 
/* BLOCK 2 */ 
DECLARE (I, Q, J, R) ADDRESS ; 
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END P1 /* AND BLOCK 2 */; 
E2: PROCEDURE (J,Q,R) ADDRESS; 
/* BLOCK 3 */ 
DECLARE (J,Q,R,S,T) BYTE; 

• • • 

END P2 /* AND ALSO BLOCK 3 */ 

m m m 

/* BLOCK 1 IS FINISHED */ 
EOF 

The variables I, J, and K are global to both the P1 and 
P2 procedures. The procedures P1 and P2 constitute 
independent parallel blocks, each with their own local 
variables. Note that the local variable I declared in 
procedure P1 is used in all references to I within block 2, 
instead of the global variable declared in line 1. Note 
also that the variable Q defined in P1 is completely 
independent of the Q declared in P2. 

The principal advantage to the scope of variable 
concept in PL/M is that subroutines are independent of the 
program in which they are imbedded, with no problems arising 
from conflicting declarations. In particular, library 
subroutines can be written as completely modular subprograms 
with no dependence upon the names used outside the 
procedure. 

li*. Statement Labels and GO TO^s 

PL/M allows program statements to be identified with a 
statement label, and allows unconditional transfer of 
program control to these labelled statements. 

14.1. Label Names. A PL/M labelled statement takes 
the form 
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label- 1: label-2: ... label~n: statement; 
where label-1 through label-n are valid PL/M identifiers or 
constants. Any number of labels may precede a PL/M 
statement. Valid labelled statements are 

L1 : X = X + 1 ; 
LOOP: Y = 3; 
L1 : LOOP: X = Y + 5; 
30: Y = X -5 ; 
LOOP: 30: LI: Q = 5 + Y; 

The function of numeric labels is to specify an origin 
for code generation. The statement "30: Y : = X - 5;" for 
example f specifies that the object code for this statement 
is to begin at location 30 in memory. The identifier form 
of a statement label has no effect on the origin of the 
code, but does provide a destination for GO TO statements. 

14.2. GO TO Statements. PL/M allows three distinct 
forms of an unconditional transfer. The first is 

GO TO label; 

In this case, the label is an identifier which appears as a 
label in a labelled statement . Program control transfers 
directly to the statement with this label. 

The second form of a GO TO is 

GO TO constant; 

The constant is any valid PL/M single or double byte number. 
Program control transfers to the absolute location in memory 
given by this number. 

The last form is 

GO TO variable ; 

where the variable contains a computed memory address. 
Control transfers directly to this computed absolute 
address. 
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The following program illustrates the use of labelled 
statements and GO TO f s. 

DECLARE X ADDRESS; 

• • • 

10: GO TO KEYIN; 

• • • 

LOOP: Q = R + 3; 

• mm 

IF Q > Z GO TO LOOP; 

• mm 

GO TO EXIT; 

/* COMPUTE AN ADDRESS AND BRANCH */ 
X = .MEMORY + 13; 
GO TO X; 

... 

GO TO 30; 

• • • 

EXIT: HALT; 
EOF 



14.3. Scope of Labels. It should be noted that the 
identifier form of a label has an implied scope, similar to 
variables and procedures. This implied scope can be made 
explicit through the PL/M label declaration . The form of 
the label declaration is 

DECLARE identifier LABEL; 

or 

DECLARE (identif ier-1 , . ... , identifier- n) LABEL; 
The label declaration informs the compiler that a label or 
set of labels will occur at the same block level as the 
declaration. The label declaration is only necessary, 
however, when the implied declaration does not correspond to 
the programmers intention. In particular, any occurrence 
of an undeclared label in either a GO TO statement, or as a 
statement label results in an immediate automatic 
declaration cf the label. This implied declaration is most 
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easily seen by example. The programs to the left below 
contain undeclared labels. The implied declarations 
resulting from these labels are shown in the corresponding 
progvems to the right. 

PROGRAM 1 

... | DECLARE LOOP LABEL; 

1 ; | LOOP: X = X + 1; 

| GO TO LOOP; 
| EOF 
PROGRAM 2 

| DECLARE LOOP LABEL; 



LOOP: X = X 
GO TO LOOP; 
EOF 



LOOP: X=X+1; 
DO; 

... 

GO TO Q1; 
Q1: Y=Y+1; 
GO TO LOOP; 
END; 

... 

GO TO EXIT; 
EXIT: HALT; 
EOF 

X=X+1; 
DO; 

. ■ . . 

GO TO L1; 
L1 : Y=Y + 1 ; 
END; 

L1: Q=Q+3; 
GO TO L1; 

EOF 



I 



LOOP: X=X+1; 
DO; 

DECLARE Q1 LABEL ; 
GO TO Q1 ; 
Q1: Y = Y+1 ; 
GO TO LOOP; 
END; 

DECLARE EXIT LABEL; 
GO TO EXIT; 
| EXIT: HALT; 
| EOF 
PROGRAM 3 

I X=X+1; 

DO; 

DECLARE L1 LABEL; 
GO TO L1 ; 
L1: Y=Y+1; 
END; 

DECLARE L1 LABEL; 
L1: Q=Q+3; 
GO TO L1 ; 
EOF 



I 



The only instance which requires explicit declaration 
of a label is when a GO TO statement in an inner nested 
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block references a label in an outer block, and the label 
follows the GO TO statement. Consider the following 
program, for example, 

/* BLOCK 1 */ 

X * X ♦ - 1 ; 
• • 

DO; /* BLOCK 2 */ 

• • • 

GO TO EXIT; 

• • • 

END /* OF BLOCK 2 */; 

• • • . 

EXIT: HALT; 
EOF 

The implied label declaration created by the PL/M compiler 
for the label EXIT results in the program 
X = X + 1; 

• • • 

DO; 

DECLARE EXIT LABEL; 

• • • 

GO TO EXIT; 

• • • 
END; 

• • • 

DECLARE EXIT LABEL ; 

EXIT: HALT; 

EOF 

Note that the resulting program is in error since the 
implied declaration of EXIT in block 2 indicates that the 
scope of EXIT is only block 2 9 conflicting with its 
occurrence in block 1. Thus, the label declaration can be 
used to remedy the situation. The programmer overrides the 
implied declaration with 

DECLARE EXIT LABEL; 
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DO; 

GO TO EXIT; 

• • • 

END ; 

EXIT: HALT; 
EOF 

As a final note, the PL/M programmer is encouraged to 
use the IF- THEN- ELSE and DO-group constructs in the place of 
labelled statements and GO TO's whenever possible. The 
effect in most cases is betTter object code and improved 
readability of the source program, 

ISjl Compile-Time Macro Processing, 

PL/M allows declaration and expansion of simple macros 
at compile time. The LITERALLY declaration in PL/M allows 
the programmer to define an identifier to represent a 
seguence of arbitrary characters. The PL/M compiler 
automatically substitutes the defining string at each 
occurrence of the - defined identifier. The form of the 
LITERALLY declaration is 

DECLARE identifier LITERALLY string; 
where the identifier is any valid PL/M name which does not 
conflict with previous declarations, and the string is an 
arbitrary PL/M string, not exceeding 255 characters in 
length. 

The following program illustrat es the use of the PL/M 
macro facility 

DECLARE TRUE LITERALLY 1 1 1 , 
FALSE LITERALLY • 0 1 ; 
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DECLARE DCL LITERALLY • DECLARE 1 , 

LIT LITERALLY 'LITERALLY ' ; 
DCL FOREVER LIT 'WHILE TRUE'; 
DCL (X,Y,Z) BYTE; 

X = TRUE; 

• • • 

DO FOREVER; Y=Y+1; 
IF Y > 10 THEN HALT; 
END; 

• • . 

EOF 

The declarations on lines 1 and 2 allow the programmer to 
use the symbols TRUE and FALSE instead of 0 and 1 , which 
often makes the program more readable. The declarations for 
DCL and LIT define abbreviations for DECLARE and LITERALLY, 
respectively. 

The DC FOREVER statement on line 8 first expands to DO 
WHILE TRUE. The macro expansion of TRUE then results in a 
loop headed by DO WHILE 1 (which executes indefinitely, 
until the HALT statement is executed) . 

The LITERALLY declaration is also useful for declaring 
fixed parameters for the particular compilation, but which 
may change from one compilation to the next. Consider the 
program below, for example: 

DECLARE ASIZE LITERALLY f 300 l , 
PBASE LITERALLY f 4000 f , 
SUPERVISOR LITERALLY '200'; 
DECLARE (A (ASIZE), I) ADDRESS; 

• • • 

PBASE: A(ASIZE-10) =50; 

* « . 

GO TO SUPERVISOR; 

EOF 
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In this case, ASIZE defines the size of the vector A. The 
value of ASIZE can be altered in the LITERALLY declaration 
without affecting the remainder cf the program. Similarly, 
the value of PBASE defines the starting location of the 
program since it expands to a numeric label. The expansion 
of the P BASE macro results in the statement 

4000: A(ASIZE-1) = 50; 
In the case of the SUPERVISOR macro, the statement "GO TO 
SUPERVISOR" is replaced by "GO TO 200" resulting in a 
transfer to absolute address 200 in memory. 

Predeclared Variables and Procedures^ 

The LENGTH and LAST forms described previously are 
called built in procedures. A number of additional 
predeclared variables and procedures are described in this 
section, which are intended to ease the programming task. 

It should be noted that these variables and procedures 
are assumed to be declared at an outer encompassing block 
level which is invisible to the programmer. Thus, 
declarations of variables and procedures with identical 
names within the program override the predeclared names. 

16.1. Condition Code Variables. There are four 
variable names in PL/M which can be used • to test the 
condition codes in the MCS-8 CPU. These names are 

CARRY ZERO SIGN PARITY 
Any occurrence of one of these variables generates an 
immediate test of the corresponding condition code flip-flop 
for a true condition (value is 1). The use of these 
variables is somewhat i rcplementa tion-dependent , and is 
described more completely in the section cn PL/M system 
notes. In any case, these variables cannot be used as the 
destination cf an assignment. 
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16.2. The MEMORY Vector, It is often useful to 
address the area cf memory following the last variable 
allocated in a particular program* PL/M provides this 
facility by automatically inserting the declaration 

DECLARE MEMORY (0) BYTE; 
as the last declaration in every program. 

As an example, consider the following program. This 
program assumes it will execute on a machine with 10 pages 
(2560 bytes) of memory. The program initializes all 
remaining space after the program variable storage to 1 f s. 
DECLARE SIZE LITERALLY • 2559 1 , 
I ADDRESS; 

DO I = . MEMORY TO SIZE; 
MEMORY (I - .MEMORY) = 1; 
END; 

EOF 

16.3. The TIME Procedure. A built-in procedure, 
called TIME, is provided in PL/M for waiting a fixed amount 
of time at a particular point in the program. The form of 
the call is 

CALL TIME (expression) ; 
where the expression evaluates to a byte quantity n between 
1 and 255. The wait time is measured in increments of 100 
usee; hence, the total time-out for a value n is 

n (100 usee) . 

Thus, the call to TIME shown below results in a 4500 usee 
(4.5 msec) time-out 

CALL TIME (45) ; 

Since the maximum time-out is 255*100 usee. = 25500 usee 
= 25.5 msec, longer wait periods are affected by enclosing 
the call in a loop. The following loop, for example, takes 
1 second to execute 

DO I = 1 TO 40; 



46 



CALL TIMEC2505P 
END | 



16,4. Type Transfer Procedures, two built-in 
procedures are provided in PL/M to convert ADDRESS values to 
byte values. The procedure calls take the forms 

LOW(expresslon) and HICH(expresslon) 

The LOW procedure returns the low-order byte of a double 
byte value, while the HIGH procedure returns the high-order 
byte. Either call can be used wherever a byte expression is 
valid in PL/M, 

The built-in procedure double converts a BYTE value to 
an ADDRESS value. The procedure call takes the form 

DOUBLE (expression) 

16,5 Bit Manipulation Procedures. Six procedures 
are provided in PL/M for shifting and rotating expressions. 
These procedure calls take the forms 

SHL (express ion! , express ion2 ) t 

SHR(expressionl»expression2) j 

SCL c express ionl, express ion2) j 

SCR ( express lonl t express ion2) t 

ROL( express ion3 » express ion2 ) i 

POR (express! on 3, expression2)j 

In these cases, expression! can be either byte or double 
byte, but expression and expression3 must be single byte 
values , 

The SHL and SHR procedures shift expression! to the 
left or right by an amount given by expresslon2, 
respectively. The precision of the result is the same as 
that of expression!. Note that the value of expression2 
must be greater than zero. 

The value of SHL( 1000S0011B,2) , for example, is the 
byte value 00001100B. The call SHR(1S000081100B, 1) results 
in the double byte value OS1000S01 10B, 

The SCL and SCR procedures are identical to the SHL and 
shr procedures with the exception that SCL and SCR shift in 
the previous value of the carry flag", where SHL and SHR 
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shift In zeroes. For example* Che statements 

KIGHIORDER a SHRCOlOiSOiOlB, 1 ) | 
LOWSORDER ■ SCR C 01 01 SO 101 B, t ) f 

assign the value OOlOiOiOB to HIGHSORDER and the value 
lOtOlOlOB to LOWSORDER, 

The rol and ror procedures rotate the value of the byte 
expressions to the right or left by an amount given by 
expression2, respectively, Again, expresslon2 must be 
greater than zero. Both procedures always return a byte 
value. The value of ROL(tOilsoooo,2) is HOOSOOIOB, and the 

Value Of ROR(lillS0000B,8) IS llllSOOOOB, 

The shl, shr, sci, SCR, rol, and ROR calls can appear 
anywhere a PL/M expression is allowed, 

16,6, I/O processing. The built-in procedure INPUT 
and built-in variable OUTPUT were introduced earlier, In 
general, the input call takes the form 

INPUT(constant) 

where the constant is in the range 0 to 7, The effect of 
the call is to read the input port designated by the 
constant. The result of the call is the byte value latched 
into the port. The call to input can appear as a part of 
any valid PL/M expression. 

The pseudo-variable OUTPUT can only be used as the 
destination of an assignment. The form is 

OUTPUT(constant) a expression) 

where the constant Is in the range 0 to 23, The value of 
the expression is latched into the output port designated by 
the constant. 

This section completes the tutorial Introduction to 
PL/M, The section which follows provides more detailed 
discussion of the individual statements and constructs of 

PL/M, 
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III. A FORMAL APPROACH TO PL/M. 
(Section III is currently incomplete. The BNF description of PL/M is included, however, for reference purposes.) 
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<PR0GRAM> : 
<STATEMENT LIST> 

<STATEMENT> 



<ST ATEM ENT LIST> 



I 



<BASIC STA TEMENT> 



<IF STATEMENTS 

<IF CLAUSE> : : 
<TRUE PART> : 
<GR0UP> 
<GR0UP HEAD> 



::= <STATEMENT> 

I <ST ATEMENT LIST> <STATEMENT> 

<BASIC STATEMENT> 
<IF STATEMENT> 

= < ASS I GNMENT> ; 
<GR0UP> ; 

<PR0CEDURE DEFINITION ; 
< RETURN ST AT EMENT> ; 
<CALL STATEMEN T> ; 
<G0 TO STATEMENT> ; 
<DECLARAT I ON STATE MENT> ; 
HALT ; 

<LABEL DEF I NI TI 0N> <BASIC STATEMENT 

<IF CLAUSE> <ST AT EMENT > 
<IF CLAUSE> <TRUE PART> < S T AT EMENT> 
I <L AB EL DEF IN I T I0N> <IF STATEMENT> 

IF <EXPRESSI0N> THEN 

::= <BASIC STATEMENT> ELSE 

<GR0UP HE AD> <ENDING> 

• • = DO " 

I DO <STEP DEF IN I T I0N> ; 
DO <WHILE CLAUSE> ; 
DO <CASE SE LEC T,OR> ; 
<GR0UP HEAD> <STATEMENT> 



<STEP DEFI NI T I 0N> 2 
< I TERATI CN CCNTRQL> 



<VARIABLE> <RE PLAC E> <EXPRESSION> < IT ER AT I ON C0NTR0L> 
= <T0> <EXPRESSION> 

I <T0> <EXPRESSION> <BY> <EXPRESS IGN> 



<WHILE CLAUSE> ::= <WHILE> <EXPRESSION> 
<CASE SELECT0R> :: = CASE <EXPRESSION> 



<PROCEDURE DEF I M TI ON> 
<PROCEDURE HE AC> : 



<PROCEDURE N AM E> 
<PARAMETER LIST> 
<P ARAMET ER HE AD> 



<PROCEDURE HE AD> <ST AT EMENT LIST> <EN0ING> 

<PROCEDURE NAM E> ; 

<PROCEDURE NAM E> <TYPE> ; 

<PROCEDURE NAME> <P ARAMET ER LIST> ; 

<PROCEDURE NAM E> <P AR AM ET ER LIST> <TYPE> ; 

= < LA B E L DEF I NI TI 0N> PROCEDURE 

= <P ARAMETER HEAD> < I D ENT I F I ER> ) 

T <PARAMETER HEAD> < I D ENT I F I ER> f 



<ENDING> ::= ENC 

END <IDENT IF I ER> 
<LABEL DEF INI TI 0N> <END I NG> 



<LABEL DEF INI T ION> 

<RETURN ST AT EM EN T> 

<C ALL STATEMENT> : 
<G0 TO STATEMENT> 



< I DENT I F I ER> : 
I <NUMBER> : 

::= RETURN 

I RETURN <EXPRESSION> 

:= CALL <VAR I ABLE> 

::= <G0 T0> <I DENTI FI ER> 
I <G0 T0> <NUMBER> 



<G0 T0> 



I 



GO TO 
GOTO 



DECLARATION STATEMENT> 
<DECLARATI ON ELEMENT> ' 



= DEC LARE <DECL AR AT I ON ELEMENT> 

I <DEC LARATI ON STAT EMENT> , < CECL ARAT I ON EL EMENT> 

<TYPE DECL ARAT I 0N> 
<IDENTIFIER> LITERALLY <STRIiMG> 
< IDENT IF I ER> <DATA LIST>. 



<DATA LIST> 
<DATA H E AD > 



:= <DATA HEAD> <CONSTANT> ) 



<TYPE DECL ARAT ION> 



DATA ( 

<DAT A HEAD> <CONSTANT> , 

:= < I DENT I F I ER SPECIF ICAT ION> <TYPE> 
I <BOUND HE AD> <NUMBER> ) <TYPE> 
I <TYPE D ECLARAT ION> <INITIAL LI ST> 
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<TYPE> 



BYTE 

ADDRESS 

LABEL 



<BCUND HEAD> ::= IDENTIFIER SPE CI F I CAT I 0N> ( 
IDENTIFIER SPECIFICATIONS :: 



IDENTIFIER LIST> 

<VAR I ABL E NAM E> : 

<BASED VAR I ABL E> 
< INITIAL LIST> :: 
<INITIAL HEAD> : : 

<A SSI GNMENT> = 



I 



:= <V ARI ABL E NAME> 
| <IDENTIFIER LIST> < VAR I AEL E NAME> 

:= ( 

I <IDENTIFIER LIST> < VAR I ABLE NAME> t 
< I DENT IFIER> 

<BA SED VARIABLE> <I DENT IF I ER> 



: := < I DENT IFIER> BASED 

;= <INITIAL HE AD> <CONSTANT> ) 

:= INITIAL { 
I <INITIAL HE AD> <CONSTANT> t 

<V AR I ABLE> < RE PL AC E> <EXPRESSION> 
<LEFT PART> <ASSIGNMENT> 



<REPLACE> :: 
<L EFT PART> 
<EXPRESSION> 



:= <VAR I ABL E> 



<LOGICAL EXPRESSION> 
<V AR I ABLE> : = <LOGICAL 



EXPRESSION> 



<LOGICAL EXPRESSION> 

<LQG I CAL FACTOR> :: = 
<LOGICAL SECONCARY> 
<LOGICAL PRI MARY> 



= <LOGICAL FACTOR> 

<LGG I C AL EXPRESSION> OR <LOGICAL FACTOR> 
<LOGICAL EXPRESSION> XOR <LOGICAL FACTOR> 

<LOGICAL SECONDARY> 

<LOGICAL FACTOR> AND <LOGICAL SECOND ARY> 

;= <LOGICAL PRI MAR Y> 
I NOT <L QG ICAL PRI M ARY> 

< ARI THMET IC EXPRESSION> 

<ARI THME TIC EXPRESSION> <RELATION> <ARITHMET IC EXPRESSION> 



<RELATION> 



< 
> 
< 
< 
> 



ARITHMETIC EXPRESSION> 



<TERM> 
<AR I THMET IC 
<AR ITHMET IC 
< AR I THMET IC 
ARITHMETIC 
- <TERM> 



EXPRESSION> + <TERM> 
EXPRESSION> - <TERM> 
EXPRESSION> PLUS <TERM> 
EXPRESSION> MINUS <TERM> 



<TERM> 



<PR I MARY> 



<PR I MARY> 

<TERM> * < PR I MARY> 
<TERM> / < PR I MARY> 
<TERM> MOD <PRIMARY> 



<CONSTANT> 

• <CONSTANT> 

<CONSTANT HEAD> <CONSTANT> 
<VARIA3LE> 

• <VAR I ABLE> 

( <EXPRESSION> ) 



<CONST ANT HEAD> 
<V AR I ABL E> ::| 
<SUBSCRIPT HE AO 
<CONSTANT> 



<CONSTANT H E A D> <CONSTANT> , 

) 



< I DENT I F I ER> 

<SUBSCRIPT HEAD> <EXPRESSION> 



I 



::= <I DENT IF I ER> ( 

I <SUBSCRIPT HEAD> <EXPRESSION> , 

<STRING> 
<NUMBER> 



<T0> :: 
<BY> :: 
<WHILE> 



TO 
BY 

:= WHILE 
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IV* COMPILING AND DEBUGGING PL/M PROGRAMS • 

This section discusses procedures for compiling and 
debugging PL/M programs. A complete compilation of a PL/M 
program is performed in two 'distinct parts: the first 
phase f referred to as PLM1, scans the source program, and 
produces an intermediate form. The second phase, called 
PLM 2, accepts this intermediate form and produces the 
machine code for the MCS-8 CPU . All errors in program 
syntax are detected in PLfll. 

The debugging process begins following successful 
compilation of a PL/M program. This debugging phase 
consists of an execution of INTERP/8 which accepts the 
machine code produced by PLM 2 and simulates the actions of 
the MCS-8 CPU. INTERP/8 has a number of facilities which 
allow monitoring of CPU action, allowing symbolic and 
absolute reference to machine code and variable storage 
locations (see Appendix III of the INTEL publication 11 MCS-8 
Micro Computer Set 8008 Users Manual") These three phase3 
are described in detail in the sections which follow. 

JK PLMJ Operating Procedures . 

The first pass of tire PL/M compiler scans the source 
program, and detects improperly formed declarations and 
statements. A listing of the source program can be obtained 
during this pass. Errors are listed by line number whether 
the source listing is produced or not. An error message 
produced by PLM 1 takes the form: 

(nnnnn) ERROR m NEAR s 
The number nnnnn corresponds to the line where the error 
occurred, s is a symbol on the line near the error, and m 
corresponds to the particular error message as given in 
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Figure IV- 1. 



Before discussing the files referenced by PLM 1 , it is 
necessary to present the file naming scheme used throughout 
the three programs PLM1 # PLM2, and INTERP/8. These three 
programs are written in ANSI standard FORTRAN with the 
intention of being as independent from the hast computer as 
possible. Thus # only a few assumptions can be made about 
the physical input and output devices or FORTRAN logical 
unit numbers and corresponding file names used in any 
particular implementation. Instead f these three programs 
use an internal file numbering scheme which is consistent 
between the three programs, but which may differ in terms of 
FORTRAN logical units from installation to installation. 
The machine-independent approach here is to give the file 
numbering in terms of devices types, and allow any 
particular implementation to assign the most convenient 
FORTRAN units. 

The file numbers used throughout PLM1, PLM2, and 
INTERP/8, along with the corresponding device types, are 
shown in Figure IV-2. Two examples of FORTRAN unit number 
assignments for the PDP-10 and IBM System/ 3 60 computers are 
shown in Figure IV-3. 

A number of compiler control switches are used during 
the execution of PLM1 to control I/O based upon this file 
numbering scheme. Additional switches are provided to 
control other compile-time functions during this pass, as 
given below. Compiler control switches come in two forms: 
compiler toggles, and compiler parameters. Compiler toggles 
can take on only the values 0 and 1 (generally specif ying an 
"on" or "off 11 condition) , while compiler parameters can be 
any non-negative value. 

A compiler switch is specified to PLM1 by typing a line 
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ERROR 
NUMRrp 



MESSAGE 



1 THE SYMBOLS PRINTED BELOW HAVE BEEN USED IN THE CURRENT 3LOCK 
BUT 00 NOT AP p EAR IN A DECLARE STATEMENT, OR LABEL APPFAR3 I J 
A GO TO STATEMENT BUT DOES NOT APPEAR IN THE BLOCK . 

2 PASS-1 COMPILER SYMBOL TABLE OVERFLOW. TOO MANY SYMP0L5 I N 
THE SOURCE PROGRAM. EITHER REDUCE THE NUMBER OF VARIABLES I >l 
THE PROGRAM. OR RE-COMPILE PASS-1 WITH A LARGER S YMgOL TA1LF . 

3 INVALID p L/M STATEMENT. THE PAIR OF SYMBOLS PRINTED BKlOa 
CANNOT APPEAR TOGETHER IN A VALID PL/ M STATEMENT (THIS ERROR 
MAV HAVE BEEN CAUSED BE A PREVIOUS ERROR IN ThF PROGRAM). 

4 INVALID ?L/M STATEMENT. THE STATEMENT IS IMPROPERLY r 0-T'EO-- 
THr PARSE TO THIS POINT FOLLOWS (THIS M* v HAVE OCCU-JR'IO ?t - 
CAUSE OF A PREVIOUS PROGRAM ERROR). 

5 PASS-1 PARSE STACK OVERFLOW. THE PROGRAM STATEMENTS A ,} r 
RECURSIVELY NESTEH TOO DEEPLY .- EITHER SIMPLIFY Tur :>Ro~« ; » , i 
STRUCTURE, OR RE-COMPILF RASS-1 WITH A L 4 ^ f»E R PARSE STA-JS. 

6 NUMRER CONVERSION ERROR. THE NUMBER EITHER EXCEEDS 65**5 0^ 
CONTAINS DIGITS WHICH CONFLICT WITH THE RADIX INDICATOR. 

7 PASS-1 TABLE OVERFLOW. PROBABLE CAUSE I S 4 CONSTANT 'Jr-M ^ 
WHICH IS TOO LONG . IF SO, THE STRING SHOULD pr w^ITTrr' ?,s t 
SEOUENCF OF SHORTER STRINGS, SEPARATED BY COMMAS. 0 Tur o .. i S r , 
RE -COMPILE PASS-1 WITH A LARGER VARC TARLE. 

8 MACRO TA9LE OVERFLOW. TOO MANY LITERALLY DECLARATIONS, 
EITHER REDUCE THE NUMBER OF LITERALLY D r C A R A T I 0 N S , OP RE- 
COho PASS-1 WITH A LARGER 'MACROS 1 TAR' E . 

9 INVALID CONSTANT IN INITIAL, DATA, OR !M-L!>lE CONSTftUT. 
PRECISION OF CONSTANT EXCEEDS TWO BYTES (MAY BF INTERNAL 
PASS-1 c^^PILER ERROR) . 

10 INVALID PROGRAM. PROGRAM SYNTAX INCO&RFCT F OR TERMINATION 
OF PROGRAM. MAY BE DUE TO PREVIOUS ERRORS '/MICH 0 C f. ' 17 r D 
WITHIN THE PROGRAM. 

11 INVALID PLACEMENT OF A PROCEDURE DECLARATION WITHIN THE PL/M 
PROGRAM. PROCEDURES MAY ONLY BE DECLARED IN THE OUTER 8L0CK 
(MAIN PART OF THE PROGRAM) 0* WITHIN DO -END GROUPS (NOT 
ITERATIVE DO'S, DO-WHILE'S. OR DO-CASE'S). 

12 IMPROPER USE OF IDENTIFIER FOLLOWING AN END STATEMENT. 
IDENTIFIERS CAN ONLY BE USED IN THIS WAY TO CLOSE A PROCEDURE 
DEFINITION. 

13 IDENTIFIER FOLLOWING AN END STATEMENT pOES NOT MATCH THE NAME 
Or TMr PROCEDURE WHICH JT CLOSES. 

14 DUPLICATE FORMAL PARAMETER NAME IN a PROCEDURE HEADING. 

15 IDENTIFIER FOLLOWING AN END STATEMENT CANNOT BE FOUND IN THE 
PROGRAM . 

16 DUPLICATE LABEL DEFINITION AT THE SAME BLOCK LEVEL. 

17 NUMERIC LABEL EXCEEDS CPU ADDRESSING SPACE. 

18 INVALID CALL STATEMENT. THE NAME FOLLOWING THE CALL IS NOT 
A PROCFPURE. 

19 INVALID DESTINATION IN A GO TO. THE VALUE MUST 3E A LABEL 
OR SIMPLE VARIABLE. 

20 MACRO TABLE OVERFLOW (SEE ERROR B ABOVE). 

21 DUPLICATE VARIABLE OR LABEL DEFINITION. 

22 VARIABLE WHICH APPEARS IN A DATA DECLARATION HAS BEEN PRE- 
VIOUSLY DECLARED IN THIS BLOCK 



Figure IV- 1. PLMl error messages issued during the first 
pass. 
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PASS*! SYMBOL TABLE OVERFLOW (SEE ERROR 2 ABOVE), 



24 INVALID USE OF AN IDENTIFIER AS A VARIABLE NAME, 

25 PASS-t SYMBOL TABLE OVERFLOW (SEE ERROR 2 ABOVE), 

2ft IMPROPERLY FORMED BASED VARIABLE DECLARATION, THE FORM IS 
X BASED J, mMERE X IS AN IDENTIFIER NOT PREVIOUSLY DECLARED 
IN THIS BLOCK, AND J IS AN ADDRESS VARIABLE, 

27 SYMBOL TABLE OVERFLOW IN PASS-1 (SEE ERROR 2 ABOVE), 

2B INVALID ADDRESS REFERENCE, THE DOT OPERATOR MAY ONLY 

PRECEDE SIMPLE AND SUBSCRIPTED VARIABLES XN THIS CONTEXT, 

2f UNDECLARED VARIABLE, THE VARIABLE MUST APPEAR IN A DECLARE 
STATEMENT BEFORE ITS USE. 

SO SUBSCRIPTED VARIABLE OR PROCEDURE CALL REFERENCES AN UN* 
DECLARED IDENTIFIER, THE VARIABLE OR PROCEDURE MUST BE 
DECLARED BEFORE IT IS USED, 

31 THE IDENTIFIER IS IMPROPERLY USED AS A PROCEDURE OR SUB- 
SCRIPTED VARIABLE, 

33 TOO MANY SUBSCRIPTS IN A SUBSCRIPTED VARIABLE REFERENCE, 
PL/M ALLOWS ONLY ONE SUBSCRIPT, 

33 ITERATIVE DO INDEX IS INVALID, IN THE FORM "DO I « El TO E2 r 
THE VARIABLE I MUST BE SIMPLE ( UNSUbSCRlPTED) , 

34 ATTEMPT TO COMPLEMENT A S CONTROL TOGGLE WHERE THE TOGGLE 
CURRENTLY HAS A VALUE OTHER THAN 0 OR 1 . USE THE '» M' 
OPTION FOLLOWING THE TOGGLE TO AVOID THIS ERROR, 

3* INPUT FILE NUMBER STACK OVERFLOW, RE-COHPILE PASS-1 ilITtt 
A LARGER INSTK TABLE, 

34 TOO MANY BLOCK LEVELS IN THE PL/M PROGRAM „ EITHER SIMPLIFY 
YOUR PROGRAM (30 BLOCK LEVELS ARE CURRENTLY ALLOWED) OR 
RE-CCKPILE PASS-1 WITH A LARGER BLOCK TABLE , 

37 THE NUMBER OF ACTUAL PARAMETERS IN THE CALLING SEQUENCE 
IS GREATER THAN THE NUMBER OF FORMAL PARAMETERS DECLARED 
FOR THIS PROCEDURE, 

St THE NUMBER OF ACTUAL PARAMETERS IN THE CALLING SEQUENCE 
IS LESS THAN THE NUMBER OF FORMAL PARAMETERS DECLARED 
FOR ThLS PROCEDURE, 

## ATTEMPT TO ASSIGN A VALUE TO AN INTRINSIC 
OR PROCEDURE NAME 



Figure IV- 1 (Con f t) 
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Input 

Internal File Number 



Input Device 



1 Interactive Console 

2 Card Reader 

3 Paper Tape 

4 Magnetic Tape A 

5 Magnetic Tape B 

6 Sequential Disk A 

7 Sequential Disk B 



Output 



Internal File Number 



1 
2 
3 
4 
5 
6 
7 



Output Device 

Interactive Console 
Line Printer 
Paper Tape 
Magnetic Tape C 
Magnetic Tape D 
Sequential Disk C 
Sequential Disk D 



Figure IV-2. Symbolic Device Assignments for PLM1 , 
and INTERP/8. 
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PaSS-1 ri L E DEFINITIONS 



POP-10 





INPUT 






OUTPUT 




■VUM 


device 


UNIT 


NU« 


DEVICE 


UM I T 


1 


TTY 


5 


1 


TTY 


r 


2 


COR 


2 


2 


PTR 


3 


3 


PAP 


& 


3 


PAP 


7 


4 


MAG 


16 


4 


HAG 


17 


5 


DEC 


9 




DEC 


12 


6 


DISK 


20 


6 


DISK 


22 


7 


DISK 


21 


7 


DISK 


2? 



IBM S/3ft0 (.CP/CMS) 



INPUT 

MUM device 

1 TTV 30 

2 CDP 80 

3 TAP 30 

4 TAP 140 

5 DSK S0-L0 

6 DSK 90 

7 DSK 90 



INPUT 

MUM DEVICE 

1 TTY 

2 CDR 

3 PAP 

4 MAG 

5 DEC 

6 DISK 

7 DISK 



INPUT 

NUM. DEVICE 

1 TTY 80 

2 C n R 9^ 

3 TAP 90 

4 TAP 140 

5 DSK 30-L0 

6 DSK 80 

7 DSK 80 







OUTPUT 


UNIT 


UNIT 


MUM 


DEVICE 


5 


1 


TTY 12* 




10 


2 


PTR 133 


6 


11 


3 


PUN 80 


7 


9 


4 


TAP 133 


12 


13 




DSK 60-1.0 


13 


1 


6 


DSK 80 


3 


2 


7 


DSK 80 


4 



•2 FILE 


DEF IN IT IONS 






POP - 


10 


OUTPUT 




UN IT 


NU m 


DEVICE 


UNIT 


5 


1 


TTY 


5 


2 


2 


PTR 


3 


6 


3 


PAP 


7 


16 


4 


*AC 


17 


9 


=> 


DEC 


1 0 


22 


6 


DISK 


2e 


23 




DISK 


21 


1 S/360 


(CP/CMS> 


OUTPUT 




UNIT 


MUM 


DEVICE 


UN IT 


5 


1 


TTY l2jj 


t> 


10 


2 


PTR 133 


8 


11 


3 


PU* 80 


7 


9 


4 


TAP 133 


12 


13 


5 


DSK 80-L0 


13 


3 


6 


DSK 80 


1 


4 


7 


DSK 80 


? 



ALL INPUT RECORDS ARE 80 CHARACTERS OR LESS. ALL 
OUTPUT RECORDS ARE 120 CHARACTERS OR LESS. 
THE FORTRAN UNIT NUMBERS CAN 8E CHANGED I N THE 
SUBROUTINES GNC AND WRITEL (THESE ARE THE ONLY OC- 
CURRENCES OF REFERENCES TO THESE UNITS). 



Figure IV- 3. PDP-10 and IBM System/360 real device assignment. 
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of input with a n $ fl in* column 1, and a switch name starting 
in column 2 (only the first character of the switch name is 
significant, and the remaining characters may be omitted) • 
In the'case of compiler parameters (and, optionally compiler 
toggles) , the switch name is followed by an equal sign (=) 
and an integer value. A compiler toggle with the equal sign 
and number omitted is complemented (a 0 becomes a 1, and a 1 
changes to a 0). Compiler switches are not printed in the 
source listing. 

The most commonly used compiler switches for PLM1 are 
listed in Figure IV-4, along with their default values. 
Note that compiler toggles are listed in Figure IV-4 without 
the 11 = n !l option although it is understood that either "= 1" 
or 11 = 0" is acceptable. Compiler parameters are listed in 
the Figure with the ,f = n ,f part following the switch name. 
The value of n is assumed to be in the proper range. 
Finally, note that the default values shown here are those 
provided by INTEL in the distribution version of the system 
and assume a batch processing environment. Any particular 
implementation may have differing default values (e.g., 
values may assume a time-sharing mode of processing) , and 
thus the local installation should be consulted. 

The operation of the first pass can now be described. 
PLM 1 begins by reading the input file number which is 
defaulted by the $INPUT switch. Normally, this switch 
defaults to the card reader if operating in batch mode, and 
to the terminal if operating in interactive mode. 
Subsequent switches in the primary file can be used to 
change these default values, if necessary (e.g., reset the 
left or right margin, or change to an alternate input file). 
The first pass normally creates a listing file on output 
file number 2, an intermediate symbol table on file 6, and 
an intermediate code file on file 7. 
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Switch Name 

J ANALYZE 
SBYPASS 
SCOUNT a n 
$ DELETE s n 

seof 

sgenerate 

S INPUT a n 



use 



Control! the PL/M syntax analysis trace. 

Dump the parse stack for syntax errors. 

Start line numbering at line n. 

Delete all trailing characters in the 
output after poslstlon n, 

End-of •£ ile on this unit, 

Interlist the intermediate language 
produced by Pass 1, 

Switch to file n for subsequent Input 
(see pl/M file numbering). 



SLEFTmargin ■ n Ignore all characters before column n in 

the input lines". 



smemory 



SOUTPUT a n 



SPRINT 



Include a symbol table in the object tape 
produced by pass 2 showing the memory 
address assignments for variables, labels, 
and procedures. 

Write subsequent output lines to file n 
(see pl/M file numbering). 

Print output lines. 



SRIGHTMARGINan Ignore all characters in the input lines 

beyond position n. 



S5YMB0LS 

STERMINAL 
$ WIDTH a n 



Print a symbol table dump at the end of 
Pass l . 

Interactive processing mode, 

Set output line width to n characters. 



Default 

0 
0 
0 
120 

0 
0 

1 

1 
0 



1 

72 



0 

72 



NOTE i The input lines are a maximum of 80 characters, and 
the output lines cannot exceed 120 characters. 



Figure IV-4, PLMl compiler switches, 
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It should be noted that in an interactive mode, PLM1 
starts by reading the progammer f s console. At this point, 
the programmer could type the program directly at the 
console into PLM 1 • It is usually the case, however, that 
the programmer first composes his program using the 
time-sharing system 1 s text editor. When PLM1 reads the 
console for the first line of input, the programmer 
redirects the PLM1 input to the disk file containing the 
edited program using the $INPUT = n compiler switch, where n 
is one of the input file numbers corr espinding externally to 
the edited program. 

The output from PLM1 can be directed to the 
programmers console, or to another device such as a disk 
file or line printer using the $OUTPUT compiler switch 
placed in the input stream. If the programmer selects the 
console as an output device, it is often useful to set 
$TEFMINAL = 1 which automatically lists only the error 
messages at the terminal. The programmer then uses the line 
numbers, along with the time-shating system editor to locate 
the errors and change the source program in preparation for 
recompilation. In this way, a source listing of the program 
need never be generated during the first pass. The program 
is listed as the compilation proceeds ^if the $TERMINAL 
toggle is zero. 

A practical approach to development of large PL/M 
programs is to write the program in terms of a number of 
independent procedures. Each of these procedures can be 
compiled and debugged separately, and, after all procedures 
are checked-out, the entire program can be compiled. 

As an example, consider the program shown in Figure 
IV-5. In this case, a procedure is shown, called INDEX, 
which performs a comparison of two character strings to 
determine if the second string occurs as a substring in the 
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^MEMORY = 1 

/* THE INDEX PROCEDURE SEARCHES THE STRING STARTING AT 
'A' FOR AN OCCURRENCE OF THE STRING STARTING AT 'B'. 
INDEX RETURNS A ZERO IF THE SECOND STRING IS NOT A SUB- 
STRING OF THE FIRST; OTHERWISE, THE POSITION OF THE 
SECOND STRING IS RETURNED. THE CHARACTER POSITIONS ARF 
COUNTED STARTING FROM 1 AND ENDING AT 255. */ 
DECLARE EOS LITERALLY * OFFH ' ; 

/* THE LABELS LO . . . L5 AND CI . . . C3 ARE PRESENT FOR DEBUGGING 
PURPOSES ONLY, AND CAN BE REMOVED WITHOUT AFFECTING THE PROGRAM 
EXECUTION */ 
INDEX: PROCEDURE (A,B) BYTE; 
LO: DECLARE ( A, B ) ADDRESS, 

(SA BASED A, SB BASED B, J,K,L,M) BYTE; 
J = 0; 

LI: DO WHILE SA(J) <> EOS; 

K = 0; 

L2: DO WHILE (L:=SA(J+K)) = (M:=SB(K)); 

L3: IF L = EOS THEN RETURN J+l; 

K = K + 1; 
END; 
J * J + 1; 
Lk: I F M - EOS THEN RETURN J; 

END; 

L5: RETURN 0; 

END INDEX; 

/* TEST THE INDEX FUNCTION */ 
DECLARE Q DATA ( 1 WALLAWALLAWASH • , EOS ) , 
(I, J) BYTE; 
DO WHILE 1; 

CI: I = INDEX(.Q,. ('WALLA', EOS)); 
C2: I = INDEX(. ('WALLA', EOS), .Q); 
C3-: I = INDEX(.Q, . ( 'WASH' , EOS) ) ; 
END; 

EOF 



Figure IV- 5. A card- image listing of the INDEX procedure. 
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first stringy as described in the comment preceding the 
procedure declaration. The last part of the program 
(following the declaration of Q) is present only to test the 
INDEX procedure and will be removed when INDEX is imbedded 
within a larger program. Note that this test section 
includes three sample calls on INDEX which are repeated 
indefinitely. The labels L 0 through L 5 within INDEX are 
used only during the debugging phase, and have no effect 
upon program execution. In fact, these labels may be 
removed after the INDEX procedure is checked-out to avoid 
later confusion as to the purpose of the labels. 

Figure IV-6 shows a sample execution of PLM 1 using the 
above source program as input. The exact manner in which 
PLM1 is started on any particular computer is, of course, 
implementation dependent. A number of particular systems 
are considered, however, in Section IV-4. The particular 
example shown in Figure IV-6 resulted from execution of PLM 1 
on an IBM System/360 under the CP/CMS time-sharing system 
using a 2741 console. Thus, all lines shown in lower case 
in this example, and examples which follow, are typed by the 
programmer, while upper case lines are output from the 
program being executed. The PLM 1 output shown in this 
figure indicates that the program is syntactically correct, 
the intermediate files have been written, and the second 
pass can he initiated. 

2^ PLM 2 Operating Procedures^ 

As mentioned previously, PLM2 performs the second pass 
of the PL/M compilation by reading the intermediate files 
produced through execution of PLM 1 • PLM2 then generates 
machine code for the MCS-8 CPU. 

Error messages produced by PLM2 are of the form 

(nnnnn) ERROR m 
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PASS-1 



$1*2 (could use $o*2 for printer U sting, $t*l for no llstlnr) 

2 /* THE IMHFX PROCEDURE SEARCHES THE STRUT START I Mf! AT 



00001 

00002 

00003 

0000U 

00005 

00006 

00007 

00008 
NG 

00009* 

RAM 

00010 

00011 
00012 
00013 
0001U 
00015 
00016 
00017 
00018 
00019 
00020 
00021 
00022 
00023 
0002U 
00025 
00026 
00027 
00028 
00029 

00030 
00031 
00032 
00033 
00031* 
00035 



•A' FOR AN OCCURRENCE OF THE STRING STARTING AT 'P*. 
INOEX RFTURNS A ZERO IF THF SFCOMP STRING IS MOT A SUB- 
STRING OF THE FIRST; OTHERWISE, THE POSITION OF THF. 
SECOND STRING IS RETURNER. THF CHARACTER POSITIONS ARF 
COUNTED STARTING FROM 1 AND ENDING AT 255. */ 
DECLARE EOS LITERALLY • 0FFH 1 ; 

/* THE LABELS L0 ... L5 AND CI ... C3 ARF PRESENT FOR DEBUGG I 
PURPOSES ONLY, AND CAN BE REMOVED WITHOUT AFFECTING THE PROG 
EXECUTION */ 
INDEX: PROCEDURE ( A, B) BYTE; 
LO: DECLARE ( A, B) ADDRESS, 

(SA BASED A, SB BASED B, J,K,L,M> BYTE; 
J * 0 ; 

LI: DO WHILE SA(J) <> EOS; 

K = 0; 

L2: DO WHILE (L:=SA(J+K)) * (M:=SB(K)); 

L3: IF L = EOS THEN RETURN J + l; 

K - K ♦ .1; 
END; 
J « J ♦ 1; 
Ik: IF M - EOS THEN RETURN J; 

END; 

L5: RETURN 0; 

END INDEX; 

/* TEST THE INDEX FUNCTION */ 
DECLARE Q DATA ( 1 WALLAWALLAWASH 1 , EOS ) , 
(I, J) BYTE; 
DO WHILE 1; 

CI: I * INDEX(;Q / .(' WALLA 1 , EOS)); 
C2: I = INDFX(.('WALLA',EOS),.Q);* 
C5: I - INDEX(.Q,. ('WASH 1 , EOS)); 
END; 

EOF 



NO PROGRAM ERRORS 



Figure IV- 6. Listing produced by PLMl for the INDEX procedure, 



62 



where nnnnn references the line in the source prograir where 
the error occurs, and m is an error message number, 
corresponding to those given in Figure IV-7. 

Operation of the second pass is particularly simple. 
PLM2 begins by reading the card reader (batch mode) or 
console (time-sharing mode) and will accept any number of 
"$" switches as input. These switches set the second pass 
compiling parameters shown in Figure IV-8. PLM2 continues 
to read these switches until one blank line is encountered. 
At this point, PLM2 reads the intermediate files produced by 
PLM1 and generates the MCS-8 machine code. 

As in the case of PLM 1 , the exact manner in which the 
PLM2 program is initiated is implementation dependent, and 
will be discussed for some particular systems in Section 
IV-4. 

Figure IV-9 shows the execution of PLM 2 using the 
intermediate files produced by PLM1 for the INDEX procedure 
given previously. Figure IV-10 lists the BNPF machine code 
file which results from this execution of PLM2. Note that 
the machine code file is headed by a symbol table (caused by 
the $MEMCRY=1 entry during PLM 1) which will be used by 
INTERP/8 during the debugging phase which follows. 

3_. Program Check- Out . 

Program verification is accomplished through the use of 
the MCS-8 CPU software simulator, called INTERP/8. The 
various commands available in INTERP/8 are described fully 
in the MCS-8 Users Manual. The PL/M program being 
checked-out is first compiled using PLM1 and PLM2, as 
previously described. In order to quickly locate errors in 
the source program, it is helpful to include the $MEM0RY=1 
toggle in PLM1 so that a symbol table is produced for the 
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ERROR 
NUMBER 



MESSAGE 



101 REFERENCE TO STORAGE LOCATIONS OUTSIDE THE VIRTUAL MEMORY 

OF PASS-2. RE-COMPILE P4SS-2 WITH LARGER ' MEMORY 1 ARRAY. 

102 

103 VIRTUAL MEMORY OVERFLOW . PROGRa* IS TOO LARGE TO COMPILE 
WITM PRESENT SI2E OF 'MEMORY . ' EITHER SHORTEN PROGRAM OR 
RECOMPILE PASS-2 WITH A LARGER VIRTUAL MEMORY. 

104 (SAME AS 103) . 

105 $ YOGGL.E USEO IMPROPERLY IN PASS-2 » ATTEMPT TO COMPLEMENT 
A TOGGLE WHICH HAS A VALUE OTHER THAN 0 OR 1 . 

106 REGISTER ALLOCATION TABLE UNDERTOW. MAY BE DUE TO A PRE- 

107 REGISTER ALLOCATION ERROR . NO REGISTERS AVAILABLE. MAY 
BE CAUSED BY A PREVIOUS ERROR » OR PASS-2 COMPILER ERROR. 

108 PASS-2 SYMBOL TABLE OVERFLOW. REDUCE NUMBER OF 
SYMBOLS. OR RE-COMPILE PASS-2 WITH LARGER SYMBOL TABLE. 

109 SYMBOL TABLE OVERFLOW (SEE ERROR 10fl). 

110 MEMORY ALLOCATION ERROR. TOO MUCH STORAGE SPECIFIED IN 

THE SOURCE PROGRAM (16K MAX ON 8008). REDUCE SOURCE PROGRAM 
MEMORY REQUIREMENTS. 

111 INLINE DATA FORMA T ERROR. MAY BE DUE To IMPROPER 
RECORD SI2E IN SYMBOL TABLE FILE PASSED TO PASS-2. 

112 (SAME AS ERROR 107). 

113 REGISTER ALLOCATION STACK OVERFLOW. EITHER SIMPLIFY THE 
PROGRAM OR INCREASE THE SIZE OF THE ALLOCATION STACKS. 

114 PASS-2 COMPILER ERROR IN ' LI TAQD • — MAY BE DUE TO A 
PREVIOUS ERROR. 

115 (SAME AS 114) . 
U6 (SAME AS 114) . 

117 LINE WIDTH SET TOO NARROW FOR COOE 0»»MP (USE *WIDTH=N) 

118 (SAME AS 107) . 

119 (SAME AS 110) . 

120 '(SAME AS 11(3, BUT MAY BE A PASS-2 COMPILER ERROR ) . 

121 (SAME AS 108) . 

122 PROGRAM REQUIRES TOO MUCH PROGRAM A NO VARIABLE STORAGE. 
(PROGRAM AND VARIABLES EXCEED 16K). 

123 INITIALIZED STORAGE OVERLAPS PREVIOUSLY .INITIALIZED STORAGE. 
12< I N I T J AL I ?AT I ON TABLE FORMAT ERROR. (SEE EF-RO'R 111). 

125 INLINE DATA ERROR. MAY HAVE BE FN CAUSED PY PREVIOUS ERROR. 

126 BUILT-IN FUNCTION IMPROPERLY CALLED . 

127 INVALID INTERMEDIATE LANGUAGE FORMAT. (SEE ERROR 111). 

128 (SAME AS ERROR 113) . 

Figure IV-7. PLM2 error messages issued during the 
second pass. 
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129 INVALID USE OF BUILT-IN FUNCTION IN AM ASSIGNMENT. 

130 PASS-2 COMPILER ERROR. INVALID VARIABLE." PRECISION K'-JT 
SINGLE BYTE OR DOUBLE BYTE). MA V BE D U F TO PREVIOUS ERRf.R. 

131. LABEL RESOLUTION ERROR IN PASS-? (MaY BE COMPILER ERhOR). 

132 (SAME AS 108) . 

133 (SAME AS 113) . 

134 INVALlT PROGRAM TRANSFER (ONLY COMPUTED JUMPS ARE ALLOWED 
WITH A 'GO TO' ) . 

135 (SAME AS 134) . 

136 ERROR IN BUILT-IN FUNCTION CALL. 

137 (NOT USED) 

138 (SAME AS 107). 

139 ERROR IN CHANGING VARIABLE TO ADDRESS REFERENCE. MAY 
BE A PASS-2 COMPILER ERROR # OR MAY BE CAUSED BY PRE- 
VOUS ERROR. 

140 (SAME AS 107) . 

141 INVALID ORIGIN. CODE HAS ALREADY BE? N GENERATED IN THE 
SPECIFIED LOCATIONS. 

142 A SYMBOL TaBLE DUMP HAS BEEN SPECIFIED (USING THE jMEMORY 
TOGGLE IN PASS-D. BUT NO FILE HAS 8FEN SPECIFIED TO RE- 
CEIVE THE BNPF TAPE (USE THE SB MP Fa N CONTROL ) • 

143 INVALID FORM a T FOR THE SIMULATOR SYMBOL TABLE DUMP (SEE 
ERROR HI). 



Figure IV-7. (Con't) 
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Switch Name 



Use 



Default 



$ANALYZE = n 

$BNPF = n 

$COUNT = n 
$DELETE = n 
$EOF 
$FINISH 

$GENERATE = n 



$ HEADER = n 

$I1SiPUT = n 

$LEFTMARGIN=n 

$MAP 

$OUTPUT = n 
$PRINT 

$RIGHTMARGIN=n 
$TERMINAL 



Print a trace 'of the register alloca- 
tion stack if n=l. Include assigned 
registers if n = 2. 

Do not write a BNPF tape if n^O. Other- 
wise/ write a BNPF tape to file n (see 
PL/M file numbering) . 

(Same as Pass 1) 

(Same as Pass 1) 

(Same as Pass 1) 

Print a decoded dump of the generated 
machine code at the finish of Pass 2. 

Print a cross reference of source line 
numbers verses machine code locations 
if n = 1. If n = 2, print a trace of 
the intermediate language as it is read, 
as well. 

Start machine code generation at loca- 
tion n when producing a code dump or 
BNPF tape. 

(same as Pass 1) 

(same as Pass 1) 

Print a memory map showing symbol num- 
bers and address assignments at the end 
of Pass 2. 

(same as Pass 1) 

(same as Pass 1) 

(same as Pass 1) 

(same as Pass 1, default value suppresses 
the listing of the intermediate files as 
they are read) 



$VARIABLES ~ n The first page of Random-access Memory 

(RAM) is page n (numbering 0, 1,.. .,63) 



$WIDTH = n 



(same as Pass 1) 



Figure IV- 8. PLM2 "$" compiler switches , 
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PASS-2 



$generate = 1 (cross reference line numbers and locations in code) 
$bnpf = 6 (write bnpf tape to internal file number 6) 



12=0003H 
19=0067H 
25=0089H 
35=00E6H 



13=000EH 15=0011H 16=001EH 17=0026H 18=00U3H 
20=006DH 21=0071H 22=0077H 23=008UH 2t* = 0087H 
26=008AH 29 = 009CH 32=00A5H 33-00BEH 31» = 00E1H 



Figure IV-9. Sample output from PLM2 corresponding to the 
INDEX procedure. 
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********************************************************** 



***** 
***** 
***** 



1 

2 
3 
k 
5 
19 
20 
21 
23 
26 
27 
28 
29 
31 
35 
38 
Ul 
U3 
kk 
U6 
U7 
50 
52 
53 



CAPPY 00362 
ZFPO 003G3 
SIGN 003GU 
PARITY 00365 
MH MO P. Y oouoo 
1NHFX 00003 
A 0036G 
B 00370 
LO 00016 
J 00372 
K 00373 
L 0037U 
M 00375 
LI 00021 
L2 0005U 
13 00132 
U 00170 
L5 00207 

0 00215 

1 00376 
J 00377 
CI 0023U 
C2 00265 
C3 00316 



*** 

************** 
*** 

0 BNPNNNPNNF 

BNNNNNNNNF 
8 BNNPPNNNNF 

BMNPPNNNMF 
16 BNNNNNNNNF 

BPPPPPNPNF 
2H BPNNNNPPPF 

BNNNNNNNNF 
32 BPPNNNPPPF 

BPNNNNPPPF 
l»0 BNNPPNPPNF 

BNNPNPPPNF 
l»8 BPPNNNPPPF 

BPPPPNPPNF 
56 BNNNNNPPNF 

BPPPNPNNNF 
6U BNNPPNPPNF 

BPPNNPNNNF 
72 BPNNNNPPPF 

BNNMNNNNNF 
80 BPPNNNPPPF 

BPPPPPPNPF 

88 BMPPPNNNPF 

BNNNPNPNNF 
96 BNNNNNNNNF 

BNNNNPNNNF 
10k BNNNNNNNNF 

BNNNNPNNNF 
112 BNNNNNNNNF 

BPPPPPNPNF 
120 BNNPPNPPNF 

BPPPPPPPPF 
128 BNNPPNPPNF 

BNPNNNPNNF 

136 BNNNNNPPPF 

BNNNNNNNNF 
lkk BMPNNPPNNF 

BNPNNPPNNF 
152 BNPNNNNNPF 

BNPNNNPNNF 
160 BNPNN NNNPF 

BPPPPPPPPF 
168 BNNNNNNNNF 

BNNNNNNNNF 
176 BNNPNPPPNF 

BPPPPPNNNF 
18<i >,NPNPNPPPF 

BNPNNNNNPF 
19-2 BNNNPNPPNF 

►BNNPNNPPNF 
200 BNNNNNNNNF 

BPPPPPPPNF 
208 BNNNNNNNNF 

BNPNNPNNNF 
216 BMNNPNPPNF 

BNNPNNPPNF 
22k BNNNNNNNNF 

BPPPPPPPNF 
232 BNNNNNNNNF 



*************************************** 



BPNNNPNPNF 

RMMPPNPPNF 
BPPPPPNPNF 
BPPPPPPNNF 
BNNPNPPPNF 
BPPNNNPPPF 

nr'NPpNr'Mf'r 

BPNNNPPPPF 
BNNNPNPNNF 
BNNNNNN MNF 
BPPPPPNPPF 
BNNNNNNNNF 
BNNPPNNNNF 
BPNNNNPPPF 
BNNNNNNNNF 
BPPNNNPPPF 
BPPPPPPNNF. 
BPPNNNPPPF 
BNNPPNNNNF 
BPNNNPPPPF 
BNNPNPPPNF 
BPPPPPNNNF 
BNNNNNNNNF 
BPPPPPPPPF 
BNNPPNPPNF 
BPPNNNNNPF 
BNNPPNPPNF 
BPPPPPNNPF 
BNNPNPPPNF 
BPPNNPPPPF 
BPPPPPPNPF 
BNPNNPNNNF 
BPPPPPNPNF 
BNNNPNNNPF 

BNNNNNPPPF 
BMPNPNPPPF 
BNPNNNNNPF 
BNPNNPPNNF 
BNPNPN NPPF 
BPNPNNPNPF 
BNPNNPPNNF 
BNNNNPPPNF 
BNNNPPPPNF 
BNPN NNPPMF: 
BNNNNNNNNF 
BNPNNNP.NW 
BNPNNNNNPF 
BPPPPPPPPF 
BNNNNNNNNF 
BNNNNNNNNF 
BNNPNPPPNF 
BPPPPPNNNF 
BMPNPNPPPF 
BPPPPPPPPF 
BNNNNNNNNF 
BNNNNNNNNF 
BNNPNPPPNF 
BPPPPPNNNF 
BPPPPPPPPF 



BNNNNNNNNF 
BPPPPNPPNF 
BNNPPNNNNF 
BNNPPNNNNF 
BNNNNNNNNF 
BNNPPNPPMF 
HPPMf'Pf' M NF 

BPPPPNNNPF 
gppppppppp 

BNNPNPPPNF 
BNNPPPPPNF 
BNNPPNPPNF 
BPNNNNPPPF 
BNNPPNNNNF 
BPNNNPPPPF 
BNNPNPPPNF 
BPPPPPNNNF 
BNNPPNPPNF 

BPPMPNNNNF 
BPPPPPNPNF 

BNNNNNNNNF 
BPNNPNNNPF 
BNNPPNNNPF 
BNPNNPNNNF 
BPPPPPNPNF 
BNNNNNPPPF 
BPPPPPNPPF 
BNPNNNPNNF 
BNNNNNNNNF 
BNNNNPNNNF 
BPPNNNPPPF 
BPNNNNPNNF 
BPPNNNPPPF 
BNNNNNNNNF 

BNPNNNPNNF 
BNPNNNNNPF 
BMPNPNPPPF 
BNPNNNNNPF 
BNPNNPNNNF 
BNNNNNNNNF 
BNPNNPPNNF 
BPNNNPPNPF 
BPNNPPPPPF 
BNNNNNNPPF 
BNNPPNPPNF 
BPNPPPPPNF 
BNPNNPPNNF 
BNNNNPPPNF 
BNNNPPPPNF 
BNPNNNPPNF 
BNNNNNNNNF 
BNPNNNPNNF 
BNPNNNNNPF 
BNNNNPPPNF 
Br'NNTPPPNF 
BNPNNNPPNF 
BNNNNNNNNF 
BNPNNNPNNF 



BNNPNPPPNF 
BPPPPPNNPF 
BHPPPPNPof 
BNNPPPPPNF 
Bf ! NP n N n PNF 
BPPPPNPPNF 
BNNNNNPPNF 
BPPPNPNNNF 
BNPPNPNNNF 
BNNNNNN NNF 
BNNNNNNNNF 
BPPPPPNPNF 
BNNPPNPPNF 
R PPNNPNNNF 
BPPPPNNNPF 
BNNNNNNNNF 
BNNPPNNNPF 
BPPPPPNNNF 
BNNNNNPPNF 
BPPPNPNNNF 
BNNPPNPPNF 
BNPNNPNNNF 
BPPNNNPPPF 
BNPPNNPPPF 
BPPNNPPPPF 
BNNPNPPPNF 
BPPNNPPPPF 
BNNPNPPNNF 
BNNPPNPPNF 
BPPPPPNNPF 
BNNNPNPNNF 
BNNNNNNNNF 
BNNNNNPPPF 
BPN'PNPNMNF 

B PNNTPP NNF 
BNPNNPPNNF 
BNPNNNNNPF 
BMPNPNPPPF 
BPPPPPPPPF 
BMPNPNPPPF 
BNPNNNNNPF 
BMNNPNPPNF 
BNNPNNPPNF 
BNNNNNNNNF 
B.PPPPPP-PNF 
BNNNNNNNNF 
BNPNNPPNNF 
RPNPPPNNNF 
BPNNNPPNPF 
BNNNNMNPPF 
BNNPPNPPNF 
BPPNPNPPNF 
BNPNPNNPPF 
BPNNNPPNPF 
BPPNPNNNPF 
BNNNNNNP PF 
BNNPPNPPNF 
BPNNPPPNNF 



Figure IV-10. Symbol table and BNPF tape produced by PLM2 

for the INDEX procedure. 
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simulation. In addition, key statements in the source 
program should be labelled so that important points can be 
referenced symbolically during program check-out (see the 
use of the labels LO, . L5, and C1, C2, and C3 in Figure 
IV-6, for example) . 

The generated symbol table and compiled object cede is 
loaded into INTERP/8. Simulated program execution can then 
be monitored, the values of memory locations can be examined 
and altered, and program errors are readily detected. 
Program check-out is usually more effective if debugging is 
carried-out at the symbolic rather than absolute level. 
That is, INTERP/8 allows reference to memory through both 
symbolic locations (using the generated symbol table) and 
absolute addresses. As a result, it is generally much 
easier to follow the execution using the symbolic features 
of INTERP/8 than it is to trace the execution using absolute 
memory addresses. Thus, it is well worth the effort to 
become familiar with INTERP/8 symbolic debugging facilities. 

A number of features have been added to the INTERP/8 
program which enhances its use in debugging PL/M programs. 
These features augment the commands described in Appendix 
III of the MCS-8 Users Manual. These additions are given 
below. 

First, note that symbolic names can be duplicated in a 
PL/M program. That is, a programmer could declare variables 
with the same name in block levels which do not conflict 
with one another. Consider the two procedures below, for 
example 

P1: PROCEDURE (A) BYTE; 

DECLARE (A, B) ADDRESS; 

. . . 

END P1; 
P2: PROCEDURE (Q) ADDRESS; 
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DECLARE (Q,A,B) BYTE; 

• • • 

END P2; 

Recall that although there are variables in procedures P1 
and P2 which have the same names (i.e., A and. B) * these 
variables are all given separate storage locations. In 
order to distinguish these variables, a construct of the 
form 

S1 / S2 / . • . Sn 
is allowed as a symbolic reference in INTERP/8* The 
interpretation of this construct is as follows: INTERP/8 
first searches for the symbol S1, then looks further to S2, 
and so-forth until Sn is found. This new construct can 
appear anywhere a "symbolic name" is allowed in the current 
INTERP/8 command structure. Note that in particular, the 
definition of a "range element" is extended to include this 
new form. Thus, the command 

DISPLAY MEMORY A TO B+1. 

is the same as 

DISP MEM P1/A TO P1/B+1. 
The seccnd occurrences of A and B can only be located by 
first searching for the name P2 . Thus, these two variables 
could be displayed using the command 

DI MEM P2/A TO P2/B. 

A second change to the INTERP/8 commands allows 
reference to a. symbolic location when setting the value of 
the program stack (PC, PS 0, ... PS 7) or the value of the 
memory address register (HL) . With this addition, the 
following are valid commands 

SET PC = P2, PS 5 = P1 . 
SET HL = B. 
SET HL = P2 / A + 1. 

Two additional $ switches have been added to INTERP/8. 
The first is of the form 
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$M AX CYCLE = n 

When this switch has a non-zero value # the CPU simulation is 
prevented from running more than n cycles before returning 
to the card reader or console for more input (n is initially 
zero) . The toggle 

$GENLABELS 

was added to cause INTERP/8 to print the closest symbolic 
name to the current program counter whenever a break point 
is encountered, INTERP/8 prints 

break AT n = label displacement 
where "break" is one of the break point types: CYCLE, 
ALTER, or REFER, and n is an absolute location. The value 
of "label" is the closest symbolic name in the program , 
while the displacement is a positive or negative distance 
from the name to the location counter. 

The last change to INTERP/8 allows imbedded dollar 
signs within numbers and identifiers, as in PL/M. 

These features are demonstrated in the example 
described below. Figure IV-11 gives a sample run of 
INTERP/8 using the symbol table and machine code produced by 
PLM2 corresponding to the program containing the INDEX 
procedure given previously. Again, the initiation of 
I NTERF/8 is system dependent and thus is not shown here. 
The symbol table is first loaded from file 6, followed by 
the machine code, also from file 6. Note that these file 
numbers must correspond to the BNPF tape file written by 
PLM 2 (see the $BNPF switch in PLM2) . The listing produced 
by PLM 1 is used, along with the symbolic reference features 
of INTERP/8 to follow the program execution. 
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INTERP/8 VERS 1.0. 

/* first load the symbol table and bnpf tape from Internal 

file number 6 (corresponding to the $bnpf=6 i*n pass2) */ 

load 6 6, 
234 LOAD OK 



/* then 


1 ook « 


at the 


symbol 


d i spl ay 


symbol s . 




0003620 


00242 


0 0 r 2 H 


CARRY 


0003 63° 


00243 


00F3H 


2 FRO 


0003640 


00244 


00F4H 


SIGH 


r\ r\ *> c f r\ 

000365O 


00245 


0 0 F 5 H 


PAP 1 TY 


0004 0 00 


00256 


0 1 0 0 H 


r EMORY 


U U 0 0 U 3 0 


00003 


0003H 


1 NPEX 


000 3 660 


00246 


00F6H 


A 


a a /\ 7 ~t r\ r\ 

00 03 700 


00248 


00F3H 


B 


AA AA1 C r\ 

0000150 


00014 


000 FH 


L0 


0003720 


00250 


00FAH 


J 


000373Q 


00251 


00FBH 


K 


0003740 


00252 


00FCH 


L 


0003750 


00253 


00FDH 


M 


0000210. 


00017 


0011H 


LI 


0000540 


00044 


002CH 


L2 


0001320 


00090 


005AH 


L3 


0001700 


00120 


0078H 


L4 


0002070 


00135 


0087H 


L5 


000215Q 


00141 


008DH 


Q 


0003760 


00254 


Q0FEH 


I 


0003770 


00255 


00FFH 


J 


0002340 


00156 


009CH 


tfl 


000265Q 


00181 


00B5H 


C2 


0003160 


00206 


00CEH 


C3 



/* set break points at places In the Index procedures 

labelled by 10, 11, ... ,15 */ 

refer 10,11,12,13,14,15. 
REFER OK 

/* It will probably be useful to examine the program 

at the beginning and end of each call to index, so...*/ 

ref cl,c2,c3. 
REFER OK 

/* now run the program to the first reference variable */ 

go 1000. 
GO OK 

REFER AT 156=C1 

/* we are at location 156 decimal, or equi va 1 ent 1 y, label cl 

base hex. 
HEX- BASE OK 

display symb *. 
Cl 

/* look at cpu registers /..*/ 

2yzsp U# a b c d r h l hl sp psc 

*O0OO*00H*0OH*0OH*O0H*0CH*OOH*0OH*OO00H*O0H*0O9CH 

di sym 9ch. 
Cl 

Figure IV- 11. Sample execution of INTERP/8 . 
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dl memory q to q + 10. 

008PH 57H UH **CH i*CH U1H 57H U1H <*CH UC" klH 57H 

/* that must be the hex representation of WALLAWALLAW */ 

dl sy q. 

0002150 0011*1 008DH 



/* now run the program to entry of the subroutine */ 

go 1000. 
GO OK 

REFER AT EH=L0 

/* now at label L0, so examine the value of a */ 

d? mem a. 
00F6H 8 OH 

dl mem a to a+1. 
00F6H 8DH 00H 

/* the first string is based at a, so look at it..*/ 

dl mem 8dh to 90h. 
008DH 57H U1H UCH kCH 

/* looks good, now examine b's value */ 

dl mem b to b+1. 
00F8H 9FH 00H 

conv 9fh. 

10011111B 237Q 159 9FH 



di mem 159 to 165. 

009FH 57H 1*1H kCW hCH U1H FFH 0EH 

/* looks good too, so run the index procedure down to 

label 12 (also, to save taping go 1000, we can set maxcycle 

to 1000 so the simulation will never run more than 1000 cycles 

before stopping) */ 

$maxcycle - 1000 
go. 

REFER AT 11H=L1 
go. 

REFER AT 2CH=L2 

/* examine the values of the local variables */ 

dl mem index/j to index/m dec. 
00FAH 000 000 000 000 

di mem j to m. 

00FAH 00H 00H 00H 00H 

d1 sy Ofah. 
J 

/* run the procedure to label 13 */ 



go. 

REFER AT 5AH=L3 

/* both 1 and m should contain a 'w*' */ 

di mem 1 to m. 
00FCH 57H 57H 



/* we should get a match on characters WALLA 
and then return with the matching position 1 */ 

go. di ml to m, 
REFER AT 2CH=L2 
OOFCH 57H 57H 

go. di m 1 to m. 
REFER AT 5AH=L3 
OOFCH UH klH 

go . go. di m 1 to m. 
REFER AT 2CH=L2 
REFER AT 5AH=L3 
OOFCH UCH UCH 

/* so far we have matched W A L */ 

go. go. di ml to m. 
REFER AT 2CH=L2 
REFER AT 5AH=L3 
OOFCH i»CH l*CH 

/* turn off the break point at L2 since It is getting 

in the way */ 

noref 12. 
REFER OK 

go. d? m 1 to m. 
REFER AT 5AH=L3 
OOFCH U1H U1H 

/* this time we should retuTn */ 
go. 

REFEH AT 78H=LU 

di mem m.. 
OOFDH FFH 

/* m = eos, so we should end up at label c2 */ 

ref 12. go. 

REFER OK 

REFER AT B.5H=C2 

/* the value of i should be 1 */ 

di m i . 
OOFEH 01 H 

d? m i dec. 
OOFEH 001 

/* now try the second call */ 



go. 

REFEP AT EM=L0 



di mem a to b+1. 
00F6H BSi! 00H 8D!' 0011 



base dec. 
DEC BASE OK 

di mem a to b+1. 
002U6 18U 000 lkl 000 
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di mem 18 k to 19 0 / mem 1U1 to 1U7. 
001SU 0P7 065 076 076 065 255 01U 
001U1 087 065 076 076 065 087 065 

/* strings are being sent properly, so we can continue. 

we should return a 0 this time since the larger string 

is not a substring of the smaller, so set reference 

breakpoint only at 15 */ 

noref 10,11,12,13,11*. go. 

REFER OK 

REFER AT 135=L5 

/* looks good, so let the subroutine return */ 

f^EFER AT 206=C3 

di mem 1 . 
0025U 000 

noref 15. /* let the subroutine run, and see if 
REFER OK 

it returns the proper value */ 

go. 

CYCLE AT 50=L2+6 

/* we just ran over 1000 cycles, so let it continue */ 

go 5000. 

GO OK 

REFER AT 156=C1 

/* we are now back around the loop. i will be an 11 

if all is well */ 

d i mem i . 
00251* Oil 

/* everything looks good, so we can now do a little 

fooling around to show some of the other debugging 

features first we will look at the operand break 

point */ 

noref 0 to 256. 
REFER OK 

/* all reference break points are reset, we will now 

set a break point so that program execution stops when 

the variables local to index are referenced. */ 

refer j to k. 
REFER OK 

go. 

REFER AT 15-L0+1 

/* we stopped at the first instruction in index... 
look to see what instructions are there */ 
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di mem * to *+10 code. 

00015 LMI,00H LHI,00H LLI,FAH LAM LLI F6H ADM INL 

di hi. 
HL = 250 

di sy 250. 
J 

/* thus program execution has stopped because there 
was an attempt to store a zero into a variable set 
In the refer command run the program further...*/ 
go. 

REFER AT 21=Ll+4 

di hi. di mem * code. 
HL - 250 
00021 LAM 

dl sy 250. 
J 

/* breakpoint now occurs because of the reference to 

the variable j. reset the break points, and 

break only if the variable is being altered */ 

noref j to m. alter j to m. 
REFER OK 
ALTER OK 

go. 

ALTER AT W-L2-2 

di hi. di m * code. 
HL = 251 
000^2 LMI 

di sy 251. 
K 

/* now stopped because of attempt to alter variable k* 
go. 

ALTER AT 66=L2+2? 

di hi. 
HL « 252 

d! sy 252. 
L 

di me * to * ♦ 10 code. 

00066 LMA DCL LBA LAM LLI,F8H ADM 1 ML LCA LA 1 , 00H 

di a. 
A = 87 

/* we are about to store the accumulator into the 

variable 1. look to see what is currently in 1, and 

then run one cycle, examine again. */ 

di mem 1 . 
00252 255 

go 1. 
GO OK 

CYCLE AT 67=L2+23 



di men 1 . 
00252 087 

/* stored ok now reset all operand breakpoi nts, 

and go back and try the call over again */ 

noal ter j to m. 
ALTER OK 

d1 sy cl. 

00023UQ 00156 009CH 
dl cpu. 

CYZSP A B C D E H L HI. SP PSO PS1 
*0101*087*U1 000*159 000 000*252*00252*001*00176*0006 7 

set pc « cl. dl cpu. 
SET OK 

CYZSP A B C D E H L HL SP PSO PS1 
0101 087 1U 000 159 000 000 252 00252 001 00176*00156 

/* we had better get out of the subroutine 
call, so .... */ 

set sp * 0. set pc a cl. di cpu. 
SET OK 
SET OK 

CYZSP A B C D E H L HL SP PSO 
0101 087 Ikl 000 159 000 000 252 00252*000*00156 

/* that looks a lot better, now try the call again */ 

go. 

CYCLE AT 62=L2+18 
go. 

CYCLE AT 6U=L2+20 

ref 01,02,03. 
REFER OK 

go. 

REFER AT 181=C2 

dl mem I . 
0025U 001 

/* same as before, now try some selective 

program execution and tracing, we will set the 
values of some local variables and execute only 
the code between 12 and 13 */ 

set cpu, di cpu. 
SET OK 

CYZSP A B C D E H L HL SP PSO 
♦0000*000*000 000*000 000 000*000*00000 000*00000 

/* display the code between 12 and 13 */ 
di mem 12 to 13 cod. 

000UU LHI,00H LL I , FAH LAM I ML ADM LLI/F6H ADM I ML LRA IAI,00H ACM LLB 
00060 LHA LAM LH 1 , 0 OH LL t , FCM LMA DCL LBA LAM LL I , F8H ADM I ML LCA LAI 
00076, 00H ACM LLC LHA LAM LHI,00H LL I , FDH LMA SUB JFZ,71H, 00H DCL 

set mem j to m * 0. di mem j to m. 
SET OK 

00250 000 000 000 000 
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/* set the address pointers for a and b up in memory 

somewhere */ 

set mem a to b + 1 «= 0 lh I0h lh. di m a to b+1. 
SET OK 

00246 000 001 016 001 



/* now place data into these locations */ 

set mem lOOh to 120h =123456 7. 
SET OK 

di mem lOOh to 120h. 

00256 001 002 003 004 005 006 007 001 002 003 00k 005 006 007 001 002 
00272 003 004 005 006 007 001 002 003 004 005 006 007 001 002 003 004 

/* set j to 3 and k to 2 */ 

set mem j=3, mem k=2. di m j t k. 
SET OK 

00250 003 002 

/* now trace this section of code */ 

trace 12-3 to 13+5. 
TRACE OK 

go 5. 
GO OK 

REPER AT 156=C1 

/* move the program counter up to this section */ 

di pc, sp. 
PC = 156 
SP = 0 

di b. 
B = 0 

di cpu. 



CYZSP A 


B 


C 


D 


E 


H 


L HL 


SP PS0 


0000 000 


000 


000 


000 


000 

1 


000 


000 ooooo 


000*00156 


set ps 0 


= 12. 


/* 


same as 


set 


pc=l 2*/ 




SET OK 
















go 5. 
















GO OK 
















0000 000 


000 


000 


000 


000 


000 


000 ooooo 


000*00044 


LH I 0 
















0000 000 


000 


000 


000 


000 


000 


000 ooooo 


000*00046 


LLI 250 
















0000 COO 


000 


000 


000 


000 


000*250*00250 


000*000^8 


LAM 
















0000*003 


000 


000 


000 


000 


000 


250 00250 


000*0001*9 


INL 
















*0010 003 


000 


000 


000 


000 


000*251*00251 


000*00050 


ADM 
















CYCLE AT 


51=L2+7 












base hex. 
















HEX BASE 


OK 














go 30 
















GO OK 
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*0001*05H 


OOH 


OOH 


OOH 


OOH 


OOH 


FBH OOFBH 


00H*0033H 


f 1 1 F6H 

ll i run 
















0001 05H 


OOH 


uun 


OOH 


OOH 


OOH*F6H*O0F6H 


00H*0035H 

v U 1 1 v V y / II 


ADM 
















0001 05H 


OOH 


nnu 

uun 


nnu 

uun 


OOH 


OOH 


F6H OOFGH 


OOH* 003 6H 

v U 1 1 n v U y U 1 1 


1 ML 
















♦0010 05H 


OOH 


uun 


uun 


OOH 


OOH*F7H*00F7H 


00H*003 7H 


LBA 
















CYZSP A 


B 


r* 

L 




t 


H 


L HL 


c p DC n 

o 1 ro U 


0010 05H*05H 


nnu 

Uun 


nnu 

uun 


nnu 

uun 


OOH 


F7H 00F7H 


nnu*nn^RM 


LA! OH 
















0010*00H 


05H 


UUH 


n n 1 1 

UUM 


OOH 


OOH 


F7H 00F7H 


nnu+nn^Au 

UUn*UU )AM 


ACM 
















*0000*01H 


05H 


now 

uun 


nnu 

uun 


OOH 


OOH 


F7H 00F7H 


n nu* n ru 


LLB 
















0000 01H 


05H 


Uun 


n n li 

UUM 


OOH 


00H*05H*0005H 


nnu+nn7ru 
uun*UUjLn 


LHA 
















0000 01H 


05H 


OOH 


ft All 

UUH 


00H*01H 


05H*0105H 


UUH* UU2UK 


LAM 
















0000*06H 


05H 


nnu 

uun 


nnu 

uun 


OOH 


01H 


05H 0105H 


n nu* n n ^ fu 


LHI OH 
















0000 06H 


05H 


now 


OOH 


00H*00H 


05H*0005H 


ooh* nniinu 

uun* 1 uuHUn 


LL 1 FCH 
















0000 06H 


05H 


nnu 

uun 


nnu 

uun 


OOH 


00H*FCH*00FCH 


nnu* nnii?u 

UUM*UU4Zn 


LMA 
















0000 06H 


05H 


uun 


nnu 

UUM 


OOH 


OOH 


FCH OOFCH 


UUH* UU 4 j n 


DCL 
















*0010 06H 


05H 


OOH 


OOH 


OOH 


00H*FBH* OOFBH 


00H*00Ul*H 


LBA 
















CYZSP A 


B 


C 


D 


E 


H* 


L HL 


SP PSO 


0010 06H*06H 


UUH 


UUH 


OOH 


OOH 


FBH OOFBH 


UUH* UU4 z>W 


LAM 
















0010*02H 


06H 


Uun 


nnu 

UUM 


OOH 


OOH 


FBH OOFBH 


nnu*nnhRu 

UUt1 T UUHDn 


LL! F8H 
















0010 02H 


06H 


OOH 


nnu 
uun 


OOH 


00H*FSH*00F8H 


nnu*nnkPH 

UvJn^UU'+Orl 


ADM 
















*0001*12H 


OGH 


OOH 


UUM 


OOH 


OOH 


F8H 00F8H 


nnu*nniiQu 

u u r • ** u u h j n 


INL 
















*0011 12H 


06H 


OOH 


nnu 

UUM 


OOH 


00H*F9H*00F9H 


nnu* nnu au 


LCA 
















0011 12H 


06H*12H 


nnu 

UUM 


OOH 


OOH 


F9H 00F9H 


n n h * n n l. r u 


LA! OH 
















0011*OOH 


OGH 


12H 


nnu 

uun 


OOH 


OOH 


F9H C0F9H 


V V 1 1 V U T L/ 


ACM 
















*0000*01H 


06H 


12H 


nnu 

UUM 


OOH 


OOH 


F9H 00F9H 


n nu* n n fi rn 

u u n * U U H L M 


LLC 
















0000 01H 


OGH 


12H 


nnu 

uun 


OOH 


0OH*12H*O012H 


n n m * o n u FM 


LHA 
















0000 01H 


OGH 


12H 


OOH 


00H*01H 


12H*0112H 


00H*0050H 

u V 1 i V U «/ V 1 1 


LAM 












L nL 




CYZSP A 


B 


C 


n 


E 


H 


or r o U 


0000*05H 


OGH 


12H 


OOH 


OOH 


01H 


12H 0112H 


00H*0051H 


LH! OH 
















0000 05H 


OGH 


12H 


OOH 


00H*00H 


12H*0012H 


00H*0053H 


LL! FDH 
















0000 05H 


OGH 


12H 


OOH 


OOH 


OOH*FPH*O0FDH 


00H*0055H 


LMA 
















0000 05H 


06H 


12H 


OOH 


OOH 


OOH 


FDH OOFDH 


00H*0056H 


SUB 
















*1011*FFH 


06H 


12H 


OOH 


OOH 


OOH 


FDH OOFPH 


00H*0057H 



JF7 71H 

CYCLE AT 73H=L-4-5H 

/* that should be enough of a check-out, so retire. 
$eof 



4.. Implementation -Dependent Operating Proced ure s, 

As mentioned previously # the exact manner in which PLM 1 
and PLM2 are initiated on any particular computer is 
implementation-dependent. Several sa mple implementations 
are given, however, in Figures IV-12 through IV-15. These 
figures provide a sample execution of both passes for the 
INTEL PDP-10, and the commercial time-sharing services 
Tymshare, Applied Logic, and General Electric, respectively. 
In each case, the FORTRAN unit names are specified for each 
of the major files accessed by PLM1 and PLM2. 

When using the Tymshare version (Figure IV-13) , for 
example, the programmer places the PL/M source program into 
a file named FOR20.DAT, which corresponds to the internal 
file number 6. This file is read when the $1=6 switch is 
encountered during the PLM 1 execution. PLM1 produces the 
intermediate files F0R22.DAT and FOR23.DAT, along with an 
optional listing in FOR03.DAT (under control of the $C=2 and 
$T=0 or $T=1 switches). 

PLM2 is then initiated and automatically reads the 
intermediate files produced by PLM1. Output can be directed 
to the disk file FOR07.DAT using the $0=3 switch during the 
PLM2 execution. The $B=7 switch in PLM2 produces a BNPF 
machine code tape during this second pass. 

INTERP/8 can then be intiated for the debugging run, 
and the 11 10 A E 7 7." command can be used to read this tape. 
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SAMPLE RUN ON INTEL POP-10 

•COPY FoR2a.OAT=MYPROG.PLM 
.SFT SPOOL LPT 
.R Pi hl 
SI =6 

PASS 1 OF COMPILER IS INVOKED HERE 

.R PLM2 

(SPACF , CARRIAGE RETURN) 

PASS 2 Of COMPILER IS INVOKED HERE 
•PRINT #.LPT 




(FOR2JJ.DAT) 





Figure IV-] 2. The INTEL implementation of PLM1 and PLM2. 
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SAMPLE" RUN ON TYMSHARE POP-10 

.CTPv MYPROG . P LM # FOR 20 . nAT 
.SUM (UPL) PI M1 

SH»I 

SS*l 
«I- 6 

PASS 1 Of COMPILFR IS INVOKED HERE 

•RUN (UPL) PLH? 

*F*| 

JTGsi 

SB =7 

?Msl 

S 0 = 3 

<SPArt .CARRIAGE RETURN) 

PASS 2 OF COMPILER IS INVOKED HERE 



(FOR22.DAT) 




(FOR03.DAT) 



(FOR07.DAT) 



ure IV-13. The Tymshare implementation of PLM1 and PLM2. 
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TYMSHARE FILE DEFINITIONS 



PASS 1 



INTERNAL 
FILE 
NUMBER 

1 

2 
3 
4 
5 
6 
7 



INPUT 
DEVICE 

TTY 

CDR 

PTR 

MTA0 

DTA1 

DSK0 

DSK1 



FILENAME 

FOR05.DAT 
FOR02.DAT 
FOR06.DAT 
FORI 6 .DAT 
FOR09.DAT 
FOR20.DAT 
FOR21.DAT 



FORTRAN 
UNIT 

5 

2 

6 
16 

9 
20 
21 



INTERNAL 
FILE 
NUMBER 

1 
2 
3 
4 
5 
6 
7 



OUTPUT 
DEVICE 

TTY 

LPT 

PTP 

MTA1 

DTA2 

DSK2 

DSK3 



FILENAME 

FOR05.DAT 
FOR03.DAT 
FOR07.DAT 
FORI 7 .DAT 
FOR10.DAT 
FOR22.DAT 
FOR23.DAT 



FORTRAN 
UNIT 

5 
3 
7 
17 

10 

22 
23 



PASS 2 



INTERNAL 
FILE 
NUMBER 

1 

2 
3 
4 
5 
6 
7 



INPUT 
DEVICE 

TTY 

CDR 

PTR 

MTA0 

DTA1 

DSK2 

DSK3 



FILENAME 

FOR05.DAT 
FOR02.DAT 
FOR06.DAT 
FOR16.DAT 
FOR09.DAT 
FOR22.DAT 
FOR23.DAT 



FORTRAN 
UNIT 

5 

2 

6 
16 

9 
22 
23 



INTERNAL 
FILE 
NUMBER 

1 
2 
3 
4 
5 
6 



OUTPUT 
DEVICE 

TTY 

LPT 

PTP 

MTA1 

DTA2 

DSK0 

DSK1 



FILENAME 

FOR05.DAT 
FOR03.DAT 
FOR07.DAT 
FORI 7 .DAT 
FOR10.DAT 
FOR20.DAT 

FOR21.DAT 



FORTRAN 
UNIT 

5 

3 

7 
17 
10 
20 

21 
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SAMPLE RUN ON AL/COM PDP-10 



.COPY FILE10.DAT«MYPROG.PLM 

.APPLY PLM1 

S0«2 

SM?> 

SSt* 

SI«6 

PASS 1 OF COMPILER IS INVOKED HERE 

.APPLY PLM2 

SG** 
SB = 7 

&M3I 

SO = 3 

(SPACE, CARRIAGE RETU#^ 

PASS 2 OF COMPILER IS INVOKED HE*E 



INPUT / (piLEll >DAT) 



PLM1 



) — - 


OPTIONAL 




LISTING 



^ 7 LANGUAGE 
/ FILE 




(FILElJ.DATl 




(FILE|4.DftT) 



(FILE12.DAT) 



Figure IV-14. The AL COM implementation of PLMl and PLM2. 
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AL/COM FILE DEFINITIONS 



PASS 1 



INTERNAL 
FILE 
NUMBER 

1 

2 
3 
4 
5 
6 
7 



INPUT 
DEVICE 

TTY 
DSK 
DSK 
DSK 
DSK 
DSK 
DSK 



FILENAME 

FILE5.DAT 
FILE 7 .DAT 
FILE8.DAT 
FILE9.DAT 
FILE10.DAT 
F I LEI 1 .DAT 
FILE 12 .DAT 



FORTRAN 
UNIT 

5 
7 
8 
9 

10 
11 

12 



INTERNAL 
FILE 
NUMBER 

1 
2 
3 
4 
5 
6 
7 



OUTPUT 
DEVICE 

TTY 
DSK 
DSK 
DSK 
DSK 
DSK 
DSK 



FILENAME 

FILE6.DAT 

FILE13.DAT 

FILE14.DAT 

FILE15.DAT 

FILE16.DAT 

FILE17.DAT 

FILE18.DAT 



FORTRAN 
UNIT 

6 
13 
14 
15 
16 
17 
18 



PASS 2 



INTERNAL 
FILE 
NUMBER 

1 

2 
3 
4 
5 
6 
7 



INPUT 
DEVICE 

TTY 
DSK 
DSK 
DSK 
DSK 
DSK 
DSK 



FILENAME 

FILE 5 .DAT 

FILE7.DAT 

FILE8.DAT 

FILE9.DAT 

FILE10.DAT 

FILE17.DAT 

FILE18.DAT 



FORTRAN 
UNIT 

5 
7 
8 
9 

10 

17 
18 



INTERNAL 
FILE 
NUMBER 

1 

2 
3 
4 
5 
6 
7 



OUTPUT 
DEVICE 

TTY 
DSK 
DSK 
DSK 
DSK 
DSK 
DSK 



FILENAME 

FILE6.DAT 

FILE13.DAT 

FILE14.DAT 

FILE15.DAT 

FILE16.DAT 

FILE11.DAT 

FILE12.DAT 



FORTRAN 
UNIT 

6 
13 
14 
15 
16 
11 
12 
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SAMPLE RUN ON GENERAL ELECTRIC TIMESHARE 



old myprog 
save filein 

OLO PLMl 
RUN 
I0«2 
•M 

is 

tl»6 

PASS 1 OF COMPILER IS INVOKED HERE 

OLD PLM2 

RUN 

IF 

SC 

SB»7 
SM 

$0=2 

(SPACE » C ARRI AGE RETURN) 

PASS 2 OF COMPILER IS INVOKED HERE 



file'' / ™ 




/INTER- 
FILE 




(SYMFIL) 




> fr- 


OPTIONAL 
LISTING 









(PTR 2) 



(LOGBIN) 



Figure IV-15. The General Electric implementation of PLMl 

and PLM2. 
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ERRATA SHEET 
October 24, 1973 
GENERAL ELECTRIC FILE • DEFINITIONS 



PASS 1 

INTERNAL 



FILE INPUT 

NUMBER DEVICE FILENAME 

1 TERMINAL 

2 DISK CDR 

3 DISK PAPI 

4 DISK MAGI1 

5 DISK DECI1 

6 DISK FILEIN 

7 DISK LOGBIN 

INTERNAL 

FILE OUTPUT 

NUMBER DEVICE FILENAME 

1 TERMINAL 

2 DISK PTR1 

3 DISK PAPO 

4 DISK MAGO 

5 DISK DECO 

6 DISK INTFIL 

7 DISK SYMFIL 

PASS 2 

INTERNAL 

FILE INPUT 

NUMBER DEVICE FILENAME 

1 TERMINAL 

2 DISK CDR 

3 DISK PAPI 

4 DISK MAG II 

5 DISK DECI1 

6 DISK INTFIL 

7 DISK SYMFIL 

INTERNAL 

FILE OUTPUT 

NUMBER DEVICE FILENAME 

1 TERMINAL 

2 DISK PTR2 

3 DISK PAPO" 

4 DISK MAGO 

5 DISK DECO 

6 DISK LOGOUT 

7 DISK LOGBIN 



All "0" in FILENAME are the letter "0", not the character 
zero ("0"). 
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V. PL/M RUN-TIME CONVENTIONS FOR THE 8C08 CPU. 



This section presents the run-time organization of PL/M 
programs, including storage allocation and subroutine 
linkage. The discussion below assumes an 8008 CPU 
environment, and thus programs which are Intended to be 
independent cf CPU architecture should not depend upon the 
conventions presented here. 

Ijl Storage Allocation., 

The overall organization of memory for the INTEL 8008 
CPU is shown in Figure V- 1 . Memory is allocated in three 
main sections: the Instruction Storage Area (ISA) , the 
Variable Storage Area (VSA) , and the Free Storage Area 
(FSA) . The beginning of the ISA is determined fcy the 
numeric label of the first statement within the PL/M 
program. If no numeric label is specified, the origin of 
the ISA defaults to zero, and the segmert marked "unused" in 
Figure V- 1 is empty. The "square root" program given in 
Appendix A contains a numeric label on the first statement 
to force the ISA to i?tart at location 2048. 

All cede generated by the PL/M compiler is "pure." 
That is, no object code modifications are made at run-time. 
Thus, the ISA memory portion can be implemented in either 
RAM (Random- Access Memory) or ROM (Read-Only Memory) . 

The VSA portion of memory holds values of variables 
declared within the PL/M program in address-order. The 
first variable declared in the source program is at the 
lowest address in the VSA, while the last variable declared 
is at the highest address. It should be noted that 
doutle-byte (ADDRESS) variables are always aligned on an 
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MCS-8 MEMORY 



16383 



.MEMORY 



FIRST 
VARIABLE 
DECLARED 



PROGRAM 
ORIGIN 



00000 



FREE 
STORAGE 
AREA 
(FSA) 



VARIABLE 
STORAGE 
AREA 
(VSA) 



INSTRUCTION 
STORAGE 
AREA 
(ISA) 




MEMORY 
VECTOR 



- LAST 
VARIABLE 
DECLARED 



V-l. Run-Time Storage Organization for the 8008 CPU. 
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even address boundary; thus, contiguous BYTE and AEDRESS 

declarations in the source program may or may not lead to 

contiguous allocation of these variables in the VSA. In 

addition, note that declarations with the DATA attribute 
cause allocation of the corresponding value in the ISA, not 

the VSA. Hence, DATA variables cannot be altered if the ISA 
is implemented in ROM • 

The VSA is placed after the ISA, but never begins 
before the page indicated by the $ VARIABLES compiler switch 
in PLM2 (the default value of this switch is zero) . 
Suppose, for example, that pages 0, 1, and 2 cf memory are 
iirplemented in unalterable ROM (recall that there are 256 
bytes per page) • The programmer would then set the switch 

$V ARI ABLES = 3 

during PLM2 to indicate that page number 3 is the first page 
in which variables can be allocated. If the ISA is 
contained within pages 0, 1, and 2 then the VSA begins in 
page 3. If the ISA extends past the first three pages into 
RAM then., the length of the ISA determines the beginning of 
the VSA. The end of the VSA is always at an even page 
boundary. 

Recall that there is one predeclared BYTE vector, 
called "MEMORY," which is automatically included in every 
PL/M program. The MEMORY vector is started after the last 
variable in the VSA, and thus represents the last area of 
memory, called the FSA, shown in Figure V-1. The length of 
the MEMORY vector is, of course, dependent upon the amount 
of -memory physically attached to the particular 8008 CPU 
being used, and the length of the ISA and VSA. The length 
of MEMORY can be effectively computed at run^time, however, 
by attempting to read and write the first location in each 
page of the FSA. A subroutine for this purpose is shown in 
Figure V-2. 



90 



00001 


2 


/* THE MEM$ LENGTH PROCEDURE RETURNS THE 


NUMBER OF 


00002 


2 


BYTES IN THE FREE STORAGE AREA (FSA) */ 




00003 


2 


DECLARE TEST$ VALUE LITERALLY '1010$1010B 




OOOOU 


2 


MEMS LENGTH: PROCEDURE ADDRESS; 




00005 


3 


DECLARE (UMAX) ADDRESS; 




00006 


3 


1=0; MAX = «»000H - . MEMORY; 




00007 


3 


/* MAX IS THE LARGEST POSSIBLE SIZE 


FOP THF FSA 


00008 


3 


IN A FULL 16K 8008 SYSTEM */ 




00009 


3 


IF . MEMORY <> 0 THEN /* AT LEAST ONE 


FPFE PACF */ 


00010 


3 


LOOP: DO WHILE 1 < MAX; 




00011 


3 


/* WRITE THE TEST VALUE INTO THE 


FIPST WOPD OF 


00012 


3 


THE PAGE */ 




00013 


3 


MEMOPY(I) = TEST$ VALUE; 




OOOU 


!» 


IF MEMORY ( 1 ) = TEST$VALUE THEN 




00015 




■ m mm ^ mm g A mm 4 4 A K§ 0\. 

1=1+ 256; ELSE MAX = 0; 




00016 


k 


END; 




00017 


3 


RETURN 1; 




00018 


3 


END MEM$ LENGTH; 




00019 


2 






00020 


2 


/* TEST THE ABOVE PROCEDURE */ 




00021 


2 


DECLARE RESULT ADDRESS; 




00022 


2 


START: RESULT = MEM$ LENGTH; 




00023 


2 


FINISH: GO TO START; 




0002»» 


2 


EOF 




NO PROGRAM 


ERRORS 





Figure V-2. A PL/M Procedure for Determining MEMORY Length. 
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Jjl Subroutine Linkage Conventions. 

The methods used for activating procedures and binding 
actual parameters to formal parameters in Pl/H is given 
below, Again, note that the conventions given here are 
dependent upon the 8008 CPU environment. 

Subroutine parameter passing is performed as follows. 
First, note that formal parameters declared in the procedure 
definition are treated the same as locally defined 
variables. That is, each parameter is allocated storage 
seguentially in memory as if it were a variable local to the 
procedure. Formal parameters, however, are initialized to 
their corresponding evaluated actual parameters at the time 
the procedure is invoked. Thus, all parameters are "call by 
value 11 in PL/H. This initialization of formal parameters is 
performed in two different ways, depending upon the number 
of argunents declared in the procedure. If there is only 
one parameter, the low-order byte is passed in CPU register 
B, while the high-order byte is sent in register C. If 
there are two parameters, the first is passed as above, and 
the second is passed in CPU registers D (low-crder byte) and 
E (high-order byte). When there are more than two 
parameters, the last two are sent as described abcve, and 
the ethers are sent by generating implied assignment 
statements at the calling point which store the evaluated 
actual parameters into the variables representing the formal 
parameters. 

^The CPU registers are also used to hold values on 
return frcm procedures which have tne EYTE or ADDRESS 
attribute. In the case of a BYTE procedure, the value 
returned is in the A register, while an ADDRESS procedure 
returns the low-order byte in register A, and the high-order 
byte in register C. 
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The eight-level program counter stack mechanism cf the 
8008 CPU is used to hold return addresses when subroutines 
are called. Although this stack size is sufficient fcr most 
PL/M programming applications, the user should be aware that 
the 8008 stack size limits nesting of subroutine calls to 
seven levels at run-time. 

3^. Use of Assembler Language Subroutines with PL/Mj. 

Assembler language subroutines can be incorporated into 
PL/M programs if these subroutines account for the PL/M 
procedure conventions discussed previously. 

The assembly language subroutines are first assembled 
into absolute locations, usually starting at low addresses 
in memory, as shown in Figure V-3. Each subroutine should 
end with a RET (return) operation code.. The beginning 
address of each subroutine is obtained after assembly, 
dencted by S1, S2, ... ,Sn in Figure V-3. 

For each subroutine S1, S2, ... ,Sn, write dummy PL/M 
interface procedures P1, P2, ... ,Pn where each Pi is a 
procedure containing the single statement 

GO TO Si; 

The procedure Pi can have zero, one, or two parameters of 
type BYTE or ADDRESS, and can return either a BYTE or 
ADDRESS value, or simply return with no value at all. Note 
that if more than two parameters are to be sent, or if more 
than one value is to be returned, ADDRESS variables can be 
used to "point to" parameters or results. 

The subroutine Si then obtains parameters from the CPU 
registers E, C, D, and E, as given in the conventions above, 
and returns values through registers A and C. 
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MCS-8 MEMORY 



Origin: 



F S A 



V S A 



ISA 

Containing Procedures 




Figure V-3. Including Assembly Language Subroutines in 
PL/M Programs. 
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Suppose, for example, a programmer codes three 
subroutines in assembly language for handling teletype I/O* 
The subroutine S1 sends a line-f eed-carr iage~r eturn, and is 
found at location 50 in memory. The subroutine S2 writes a 
single character at the teletype and returns. Assume S2 
assembles starting at location 75. The subroutine S3 reads 
one character from the teletype, and is located between 
addresses 12C and 150 in memory. The following PL/N program 
then provides interface procedures for these assembly 
language subroutines. 

150: DECLARE CRLFS LITERALLY ■SO 1 , 
TTYOUTS LITERALLY '15', 
TTYINS LITERALLY f 120 1 ; 
CRLF; PROCEDURE; 
GO TO CRLFS; 
END CRLF; 
TTYOUT: PROCEDURE (CHAR) ; 
DECLARE CHAR BYTE; 
GO TO TTYOUTS; 
END TTYOUT; 
TT YIN : PROCEDURE BYTE; 
GO TO TTYINS; 
END TTYIN; 

The CRLF # TTYOUT, and TTYIN procedures can then be called 
in the same manner as any internally-defined procedure. 

If the assembly language subroutines are not fully 
checked-out and thus are undergoing revisions, it may be 
worthwhile constructing a "jump vector" at the beginning of 
memory* The jump vector contains jump instructions to 
addresses of the currently assembled subroutines SI through 
Sn in lcwer memory. The corresponding PL/M interface 
procedures then branch indirectly through this jump vector. 
If the subroutines are reassembled at different locations, 
only the jump vector need be changed, since it is not 
necessary to recompile the PL/M program. 
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As a final note, the programmer is reminded that 
assembly language subroutines should be used only when 
absolutely necessary. Changes to the PL/M system foi future 
machine architecture will necessitate changes in subroutine 
conventions, lesulting in loss of upward software 
compatibility in all programs which depend upon these 
conventions. 
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Appendix A 



A Sample Program in PL/M 



PASS-J. 






00001 


2 


O0I4A* /• TC Tur AO ' r f m At* TlitC OonrDiu a/ 


00(902 


2 


DECLARE TTO LITERALLY «2'. CR LITERALLY »15Q», LF LITERALLY •0AH» < 


00003 


2 


TRUE LITERALLY • f' » FALSE LITERALLY '2*1 


00004 


2 


00005 


2 


SQUARESROOT: PROCEDURE(X) BYTE 1 


00006 


3 


DECLARE (X,Y»2) ADORESS? 


00007 


3 


Y « X; 2 s SHR< X>1# 1) J 


00008 


3 


00 WHILE Y <> 2; 


00009 


3 


Y " 2; H = SHR(X/Y ♦ Y ♦ i» l ) ; 


00010 


4 


END* 


00011 


3 


RETURN Y; 


00012 


3 


END SQUAREROOT; 


00013 


2 




00014 


2 


PRINTSCHAR: PROCEOURE ( CM AR ) ; 


00015 


3 


DECLARE 8IT$CELL LITERALLY '91', 


00016 


3 


(CHAR. I) BYTF; 


00017 


3 


OUTPUT (TTO) a 0J 


00018 


3 


CALL TIME (8ITSCELL); 


00019 


3 


00 I = 0 TO 7; 


00020 


3 


OUTPUT(TTO) = CHA«I /• DATA PUlSES •/ 


00 02 1 


4 


CHAR s ROR(CHAR.l), 


0002? 


4 


CALL T I ME ( B I TSCELL ) » 


00023 


4 


ENO I 


00024 


3 


OUTPUT (TTO) 8 ll 


00025 


3 


CALL TIME ( BI TSCELL+B ITCELL ) l 


00026 


3 


/* AUTOMATIC RETURN IS GENERATED */ 


0002 7 


3 


END PRINTSCHAR; 


0002 A 


2 




00029 


2 


PRINTSSTRING: PROCEDURE ( NAME . LENGTH ) ; 


00030 


3 


DECLARE NAME ADDRESS. 


00031 


3 


(LENGTH, I .CHAR BASED NAME) BYTE; 


0003? 


3 


DO I s 0 TO LENGTH - 1; 


00033 


3 


CALL PRINT$CHAR(CHAR( I ) ) ; 


00034 


4 


END J 


00035 


3 


END PRINTSSTRING.* 


00036 


2 




00037 


2 


PRINTSNUMBER: PROCEDURE (NUMBER* BASE , CHARS # 2ER0S SUPPRESS ) ; 


00038 


3 


DECLARE NUMBER ADDRESS. (BASE » CHARS. 2ER0SSUPPRESS. I . J ) BYTE » 


00039 


3 


DECLARE TEMP (16) BYTE ; 


00040 


3 


I F CHARS > LAST (TEMP) T HE N CHARS s LAST(TEMP); 


00041 


3 


DO I s 1 to chars; 


00042 




j = number mod base ♦ 


00043 


4 


IF J > •9* THEM J s J ♦ 7 ; 


00044 


4 


IF ZER0SSUPPRESS AND I <> 0 AND nUmBFR a 3 THEN 


00045 


4 


J a i » ; 


00046 


4 


TEMP(LENGTH(TEMP)-I ) s j; 


0004? 


4 


NUMBER = NUMBFR / BASE; 


00048 


4 


end; 


00049 


3 


TALL PRINTSSTRING* .TEMP ♦ LENGTH(TEMp) - CHARS , CHARS); 


00050 


3 


END PRINTSNUM8EP; 


0005". 


2 




0005? 


2 


DECLARE I ADDRESS. 


00053 


2 


CRLF LITERALLY •CP.LF*. 


00054 


p 


HEADING DATA (CRLF.LF.LF. 


00055 


2 


• TABLE OF SQUARE ROOTS 1 , CRLF.LF. 


00056 


2 


• VALUE ROOT VALUE ROOT VALUE ROOT VALUE ROOT VALUE ROOT • 


00057 


2 


CRLF-LF) ; 


0005 8 


2 




00059 


? 


/• SILENCF TTY AMD PRINT COMPUTED VALUES •/ 


00060 


2 


OUTPUT(TTO) a l; 


00061 


2 


00 I a i jo 1000; 


00062 


2 


IF I MOD 5 a i THEN 


0006T 


3 


DO; IF I MOD 250 = 1 THEN 


00064 


4 


CALL PR INT JSTR I NG( .HE AD ING. LENGTH (HEADING ) ) ; 


00065 


4 


END; ELSE 


00066 


3 


CALL PRINTSTRING(.(CR»LF).2); 


00067 


3 


CALL PRINT$NUMBER(I.10»6.TRUE /• TRUF SUPPRESSES LEADING 2ER0E 


00068 


3 


CALL PRINTSNUM0ER(SQUARESROOT(I), 10,6, TRUE)! 


00069 


3 


ENO; 


000755 


2 




00071 


2 


DECLARE MONiTORSUSES (10) BYTE; 


00072 


2 


EOF 


NO PROGRAM 


ERRORS 
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PASS-1 SYMBOL TABLE 



SYMBOL 


ADOR 


WDS 


CHRS 




LENGTH 


PR 


TY 




S00078» 


0326 


3 


11 


R 


000010 


1 


1 


HON I TO RUSE S 


S0O077 


0322 


1 


1 


R 


000006 


1 


6 


6 


S00076 


0319 


0 


0 


R 


000000 


4 


4 




S00075 


0316 




0 


R 


000000 


4 


4 




S0H074 


0312 


1 


3 


R 


000250 


1 


6 


250 


S00073 


0309 


0 


0 


R 


000000 


4 


4 




S00072 


0305 


1 


1 


R 


000005 


1 


6 


5 


S00071 


0302 


0 


0 


R 


000000 


4 


4 




S00070 


0298 


1 


4 


R 


001000 


2 


6 


1000 


S00069 


0295 


0 


0 


R 


000000 


4 


4 




S00068 


0283 


12 


60 


R 


000000 


3 


5 


' VALUE ROOT 


S00067 


0268 


9 


45 


R 


000000 


3 


5 


i 


S00066 


0264 


1 


2 


R 


000010 


1 


6 


0A 


S00065 


0260 


1 


2 


R 


000013 


1 


6 


15 


S00064* 


0255 


2 


7 


R 


000115 


3 


1 


HEADING 


S00063* 


0251 


1 


1 


R 


000001 


2 


1 


I 


S00062 


0247 


1 


1 


R 


000032 


1 


3 


i t 


S0F061 


0244 


0 


0 


R 


000000 


4 


4 




S00060 


0241 


0 


0 


R 


000000 


4 


4 




S00059 


0237 


1 


1 


R 


000057 


1 


5 




S000SB 


0233 


1 


1 


R 


000048 


1 


5 


1 0 1 


T00057 


02^0 




0 


R 


000000 


4 


4 




500056 


0227 


0 


0 


R 


000000 


4 


4 




S00055 


0224 


0 


0 


R 


000000 


4 


4 




S00054* 


0220 


1 


4 


R 


000016 


1 


1 


TEMP 


S00053» 


0216 


1 


1 


R 


000001 


1 


1 


J 


S00052* 


0212 


1 


1 


R 


000001 


1 


1 


I 


S000S1 


0209 


0 


0 


R 


000000 


4 


4 




S00050* 


0233 


3 


12 


R 


000001 


1 


1 


HERCSUPPRFSS 


S00049* 


0199 


1 


5 


R 


000001 


1 


1 


CHARS 


S00048* 


0195 


1 


4 


R 


000001 


1 


1 


BASE 


S00047« 


0190 


2 


6 


R 


000001 


2 


1 


NUMBER 


S00046» 


0184 


3 


11 


R 


000004 


0 


3 


PR I NTNUMBFJR 



VALUE ROOT VALUE POOT VALUE R( 
TABLE OF SQUARE ROOTS 



S00P45 


0181 


0 


0 


R 


000000 


4 


4 




S00044 


017R 


0 


0 


R 


000000 


4 


4 




S00043* 


0173 


1 


4 


B 


000001 


1 


1 


CHAR 00000027H 


S00042* 


0169 


1 


1 


R 


000001 


1 


1 


I 


S00041 


0166 


0 


0 


R 


000000 


4 


4 




S00040# 


0161 


2 


6 


R 


000001 


1 


1 


LENGTH 


S00039» 


0157 


1 


4 


R 


000001 


2 


1 


NAME 


S0'3038» 


0151 


3 


11 


R 


000002 


0 


3 


PRINTSTRIMG 


S00077 


0148 


0 


0 


R 


000000 


4 


4 




S00036 


0144 


1 


1 


R 


000007 


1 


6 


7 


S00035 


0141 


0 


0 


R 


000000 


4 


4 




S00034- 


0137 


1 


2 


R 


000091 


1 


6 


91 


S00'0 71 


0133 


1 


1 


R 


000000 


1 


6 


0 


S00B32 


0129 


1 


1 


R 


000002 


1 


6 


2 


S0003l« 


0125 


1 


1 


R 


000001 


1 


1 


I 


S0003PI 


0122 


0 


0 


R 


000000 


4 


4 




S00029* 


0118 


1 


4 


R 


000001 


1 


1 


CmAR 


S0002F • 


0113 


2 


9 


R 


000001 


0 


3 


PR INTCHAR 


S000?7 


0110 


0 


0 


R 


000000 


4 


4 




S00026 


0107 


0 


0 


R 


000000 


4 


4 




S00025 


0103 


1 


1 


R 


000001 


1 


6 


1 


S00024* 


0099 


1 


1 


R 


000001 


2 


1 


2 


S000?3« 


0095 


1 


1 


R 


000001 


2 


1 


Y 


S0002-> 


009? 


0 


0 


R 


000000 


4 


4 




S00021* 


0088 


1 


1 


R 


000001 


2 


1 


X 


S00020» 


0 08 3 


2 


10 


R 


000001 


1 


3 


SQU^REROOT 


S00019 


0079 


1 


4 


R 


002048 


2 


6 


2048 


S0001 8 


0074 


2 


6 


R 


000001 


2 


2 


DOUBLE 


S00017 


0070 


1 


4 


R 


000003 


0 


2 


MOVE 


S00016 


0066 


1 


4 


R 


000001 


1 


2 


LAST 


S0 0015 


0061 


2 


6 


R 


000001 




2 


LENGTH 


S0001 4 


0056 


2 


6 


R 


000001 




2 


OUTPUT 


S00013 


0052 


1. 


5 


R 


000001 




2 


INPUT 


S00012 


0048 


1 


3 


R 


000001 




2 


LOW 


S00011 


0044 


1 


4 


R 


000001 




2 


HIGH 


S00010 


0040 


1 


4 


R 


000001 




2 


TIME 


S00009 


0036 


1 


3 


R 


000002 




2 


SHR 


S00008 


0032 


1 


3 


R 


000002 




2 


SHL 


S00007 


0028 


1 


3 


R 


000002 




0 


ROR 


S00006 


0024 


1 


3 


R 


000002 




2 


ROL 


S00005 


0019 


2 


6 


R 


000000 




1 


MEMORY 


S00004 


0014 


2 


6 


R 


000001 




1 


PARITY 


S00003 


0010 


1 


4 


R 


000001 




1 


SIGN 


S00002 


0006 


1 


4 


R 


000001 




1 


2ER0 


S00001 


0002 


1 


5 


R 


000001 




1 


CARRY 



98 



p'AsS-2 



LINE NUMBER - ADDRESS CORRESPONDENCE 



2=0800*1 6 2 0803H 7«080AH 8*08lDH 
11=08A9H 12=08B1H l3«08B2H 16»08B5H 
19=08C5H 20 S 08C8H 21=08D2H 22»08D7H 
25=08EBH 26 S 08EFH 27»0BF7H 28»08F8H 
32=0907H 33 S &90DH 34s0923H 36»092DH 
39=0938H 40*093CH 41=093FH 42*0952H 
45=0999H 46 = 099DH 47*09AFH 48*09CCH 
52=09F6H 
S00064 02553 115 

?IDH 0 AH 0 AH 0 AH 20H 20H 20H 20H 20H 20H 
20H 20H 20H 20H 20H 20H 20H 20H 20H 20H 20H 
46H 20H 53H 5lH 55H 41H 52H 45H 20H 52H 4FH 
56H 41H 4CH 55H 45H 20H 20H 52H 4FH 4FH 54H 
20H 52H 4FH 4FH 54M 20H 56H 41H 4CH 55H 45H 
56H 41H 4CH 55H 45H 20H 20H 52H 4FH 4FH 54H 
20H 52H 4FH 4FH 54H 0DH 0 AH 0 AH 
60S0A6CH 61=0A6FH 



9«0838H 
17=08BAH 
23=08D8H 
30=08FBH 
37c092EH 
43=096FH 
49&09D1H 



10«089OH 
18«08BCH 
24*08E8H 
3l»0904H 
38O0931H 
44*0972H 
51»09F5H 



20H 20H 20H 20H 20H 20H 20H 
54H 41H 42H 4CH 45H 20H 4FH 
4FH 54H 53H 0DH 0 AH 0AH 20H 
20H 56H 41H 4CH 55H 45H 20H 
20H 20H 52H 4FH 4FH 54H 20H 
20H 56H 41H 4CH 55H 45H 20H 



65=0AC6H 
S00081 02773 
0DH 0 AH 

67=0AD7H 
S00301 00BCCH 
S000^5 00C00H 
S00029 00BO6H 
S00042 00BDBH 
S00050 00BF.1H 
S00063 00BF4H 



66=0ACFH 

2 



62=0A78H 63*0AA4H 64=0AC3H 



68=0AF7H 69=0B09H 70=0B28H 

S00002 00BCOH S00003 00BCEH 

S00021 00BD0H S00023 00BD2H 

S00031 00BD7H S00039 008O8H 

S00047 00BDCH S00048 00BDFH 

S00052 00BE2H S00053 00BE3H 

S00078 00BF6H S00079 00BCAH 



0000H HLT HLT HLT HL T HLT HLT HLT H|_ T HLT HlT 



S00004 00BCFH 

S00024 00BD4H 

S00040 00BDAH 

S00049 00BE0H 

S00054 00BE4H 

S00080 00BC8H 
HL T HLT HLT HLT HLT HLT 



GENERATED OBJECT CODE 

0800H JMP,B2H.08H LH 1 # 06H LlI»D0H LHB INL LMC DCL LBN INL LCH |NL LMB 
0810H INL LMC LLLD0H LAM INL LCM AOI»01H LBA LAC ACI,00H OR A RAR LCA 
0820H LAB RAR LL I » D4H LM A INL LMC LH I » 0BH LL I # D2H LAM INL LCM INL SUM 

0830H INL LBA LAC SBM ORB JT2.A9H.08H DCL LBM INL LCM LLI.Q2H LMB INL 
0840H LMC OCL LBM INL LCM LLl»C8H LMB INL LMC LL I » D0H LBM INL LCM LL I 
0850H.CAH LMB INL LMC JMP.8AH.08H LEM DCL L DM LMI.llH LBI »00H LCB L AD 
0860H RAL LD A LAE RAL LEM DCE LME LEA RT2 LAB RAL LBA LAC RAL LCA OCL 
0870H DCL LAB SUM LBA INL LAC SBM LCA JFC.83H.08H OCL LAB AOM LBA INL 
0880H LAC ACM LCA INL SB A SBI.80H JMP.5FH.08H CAL.57H.08H LAO LLI.02H 
0890H ADM INL LOA LAE ACM LEA LAD AOI,01H LD A LAE ACI.00H OR A RAR LEA 
08A0H LAD RAR INL LMA INL LME JMP.27H.08H LHI.09H LLl»02H LAM INL LCM 
08B0H RET RET JMP.F8H.08H LHI.0BH LLI»D6H LMB XR A 010 LBI » 5BH DCB JT2 
08C0H.C5N.08H JMP » BEH » 08H INL LMI.00H LAI.07H LH I * 0BH LLI.D7H SUM JTC 
08O0H.E8H.00H DCL LAM 010 LAM RRC LMA LB I * 5BH DCB JTH.E1H.08H JMP.OAH 
08E0H.08H INL LBM INB LMB JMP.C8H.08H LAI » 01H 010 L A I » 5BH AD I » 5BH LBA 
08F0H DCB JT2.F7H.08H JMP.F0H.08H RET JMP.2EH.09H LH I » 0BH LL I » D8H LHB 
0900H INL LMC INL LMD INL LMI.00H LHI.0BH LL I » DAH LBM DCB LAB INL SUM 
0910H JTC.2DH.09H LAM LL I » D8H ADM INL LBA LAI.00H ACM LLB LHA LAM LBA 
0920H CAL,B5H,08H LH I » 0BH LL I > DBH LBM INB LMB JMP.07H.09H RET JMP.F6H 
0930H.09H LH I » 0BH LL I » E0H LMB INL LMD LAI » 0FH DCL SUM JFC.41H.09H LM I 
0940H.0FH LHI.0BH LL I * E2H LMI.01H LH I » 0BH LL I » E0H LAM LL I « E2H SUM JTC 
0950H.D9H.09H LL I » DFH LBM LL I » C8H LMB INL LMI.00H LL I » DCH LBM INL LCM 
0960H LL I » CAH LMB INL LMC CAL.57H.08H LAB ADI.30H LBA LAC ACI.00H LL I 
0970H.E3H LMB LAI.39H SUM JFC.7CH.09H LAM ADI.^H LMA L H I # 0 B H LL I # E2H 
0980H LAM SUI.A0H ADI »FFH SBA DCL NDM LLI.DCH LBA L AM INL L DM SUI ,00H 
0990H LCA LAD S8I.00H ORC SUI.01H SBA NOB RRC JFC.A1H.09H LL I » E3H LM I 
09A0H.20H LAI.10H LH I » 0BH LL I . E2H SUM LL I . E4H AOL LBA L AH ACI.00H DCL 
09R0H L DM LLB LHA LMD LHI.0BH LL I # DFH LBM ILl.CRH l MB I NL LMI.A0H LL I 
09C0H.OCH LBM INL LCM LL I » CAH L*B INL LMC CAL.57H.08H LLI.DCH LM(J INL 
09D0H LME LLI.E2H LBM INB LMB JMP.47H.09H LHl.^BW LL I » E4H LCH LA L ADI 
09E0H.10H LBA LAC ACI.00H LCA LAB LL I » E0H SUM LBA LAC SBI.00H LL I » E0H 
09F0H LOM LCA CAL » FBH » 08H RET JMP.6CH.0AH R01 RRC RRC RRC INE INE I NE 
0A00H INE INE INE INE INE INE INE INE INE I ME T ME INE INE INE INE INE 
0A10H INE INF INE INE INE JMP.4iH.42H JMP,45H,2CH 107 CAL.20H.53H O0B 
0A20H 010 I<30 CFS»45H.20H CFS.4FH.4FH JMP.53H.0DH RRC PPC INE CAL»4lH 
0A30H.4CH 010 102 INE INF CFS»4FH,4FH JMP,?0H,56H 100 JMP.55H.45H INE 
0A40H INE CFS,4FH,4FH JMP,20H,56H 100 JMP,5?H,45H INE INE CFS,4FH,4FH 
0A50H JMP,?0H,56H 100 JMP.55H.45H INE INE CFS * 4FH , 4FH JMP,?0H,56H 100 
0A60H JMP,55H,45H INE INE CFS.4FH.4FH JMP.0DH,0aH RRC LAI.01H 010 LH I 
0A70H.0BHLLl.F4H LMI.01H INL LMI.00H LA I » E BH LCI.03H LH I » 0BH LLI»F*H 
0A80H SUM INL LB A LAC SBM JTC.28H.0BH LL I » Ch H LMI.05H INL LMI.00H LL I 
0A90H.F4H LBM INL LCM LLI.CAH LMB INL LMC CAL.?7H.08H LAB SUI#01H LBA 
0AA0H LAC SBI.00H ORB JF2.D2H.0AH LLl»C8H LMl.FAH INL LMI.00H LLI.F4H 
0AB0H LBM INL LCM LL I » CAH LMB INL LMC CAL.57H.08H LAB SUI.01H LBA LAC 
0AC0H SBI»00H ORB JF2#CFH.0AH LB I » F9H LCl»09H L0I.73H CAL. FBH. 08H *JMP 
0AD0H,E0H,0AH JMP.D7H.0AH R01 RRC LBI.D5H LCI.0AH LOI.02H CAL.FRH.08H 
0AE0H LHI.0BH LL I » F4 H LBM INL LCM LL I » DC H LMB INL LMC LL I » DF H LM 1 , 0A H ' 
0AF0H LBI.06H LOI.01H CAL.31H.09H LHI.0BH LL I » F4 H LBM I NL LCM CAL.03H 
0B00H.08H LHl.0BHLLl.OCH LMA INL LMI.00H LL I » DFH LMI.0AH LBI#06H LD I 
0B10H.01H CAL.31H.09H LHI.0BH LL I # F4H LAM INL LCM ADI.01H LBA LAC AC I 
0820H.00H DCL LMB INL LMA JMP.78H.0AH HLT 
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23 
24 



CARRY 05714 
HERO 05715 
SIGN 05716 
PARITY 05717 
MEMORY 06000 
2? SQUAPEROOT 20017 
2\ X 05720 
Y 05722 
2 05724 

28 PRINTCHAR 21327 

29 CHAR 05726 
31 I 057?7 

38 PRNYTSTRING 21757 

39 NAME 05730 

40 LENGTH 05732 
42 I 05733 

46 PRINTNUM8EP 22307 

47 NUMBER 05734 

48 BASE 05737 

49 CHARS 05740 

50 2ER0SUPPRESS 05741 
I 05742 
J 05743 

54 TEMP {15744 

6 3 I 0576 4 

64 HEADING 04771 

78 MONITORUSES 05766 



5 2 
53 



2P48 BnPNNnPNNE 

bnnnnpnppf 
2056 bnnppnnnnf 

bnnppnnnnf 
2064 bnnppnnnnf 

bppnnnpppe 
2072 bnnnnnnnpf 

bnmnnnnnnf 
2080 bppnnnnnpf 

bpppppnnnf 
2088 bnnnnpnppf 

bnnppnmnnf 



bPnppnnpnf 
bnnppnppnf 
bpppppnpnf 
bppnpnpppf 
bpppppnpnf 
bnnppnnnnf 
bppnnpnnnf 
bpnppnnnnf 
bnnnppmpnf 
bnnppnnnnf 
bnnppnppnf 
9ppnpn°ppf 



bmnnnpnnnf 
bppnpnnnnf 
bnnppnnnpf 
bnnppnnnnf 
bnnppnppnf 
bppnpnpppf 
bp°nnnnpnf 
bnnnppnpnf 
8nnppnppnf 
8pppppnpnf 
bppnpnnpnf 
bnnppnnnnf 



ennPnp° p \ ,( " 
RpppppNN^r 
RpPN-vPPPor 

PPPPPPNNPF 
BPPNPNNNNf 7 
BNNNNN PNWF 
PNNNVPPNNF 
pPPNPNNNNP 
RPPMPNP\WF 
BNNFNP PPNF 
PPPNNNPPPF 
RPNNPNPPPF 



2096 
2104 
2112 
2120 
2128 
2136 
2144 
2152 
2160 
2168 



bnnppnnnnf 
bpmppnnnpf 

8NN p PNWN D F 

bnnppnp°nf 
bpp°ppnpnf 

gPpNjPMpppp 

bnnppnnnnf 
bppnnppp°f 
bppnnpnpnf 
bnpnnnpnnf 
bnnppnnnpf 
bnnnnpppnf 
bnnnpnnpnf 

P?PpPNNPP p F 

bnnpnpnppf 

BPPNNNN p NF 
BNNPPNNNPF 
BNNPPNNNNF 

bnpnnnnnnf 
bppnnnnnpf 



2664 bnpnpnpnnf 
bmnnnnpPnf 

2672 8nnnnpnppf 
bnnnnnnnpf 

2680 bnnnnnppnf 

BNNPNPPPNF 
2688 BPNNPNPPPF 
BPNNPPPPPF 

26 96 BNNPPNPPNF 

BNNPPNNNNF 
2704 BPPPPNPNNF 

8NNPPNP P NF 
2712 BPPP p PN p NF 

BPPNNNNNPF 
2720 BPPNNNNPNF 

bnpnnpnnnf 
2728 bppnnpnnnf 

bnnpppppnf 
2736 bppnnppppf 

B p PNNPN p NF 
2744 BNPNNNPPNF 
BNNNPNPNNF 

27 52 9NNNPPPNNF 

BPPNNPPPPF 
2760' BNNM p NPPNF 

BN D NNN pp NF 
2768 BPPPNNNNNF 

BNNNNPNPNF 
2776 BPPNPNPNPF 

BNNNNNN p NF 

2784 b n n p n p p p n f 

bppnnppppf 
2792 bppnpppnnf 

bnnppnppnf 
2800 bnnnnpppnf 

bnpnnnppnf 
2808 bnmnnpnppf 

bmnppnnnnf 
2816 bmnnnpnnnf 

bppnpppnnf 
2824 3nnnnnnnnf 

bnnnnpnPnf 
2832 bnnnnnnnpf 

8nnpnpppnf 

2840 BPPNNNPPPF 
BNNNNNNNPF 

2848 BNNNNNNNNF 
BPPPPPNNNF 

2856 BNNNNNNNNF 



bppnnpnnnf 
bnppnpnnnf 
bppnnppppf 
bppnpnnpnf 

BNNPPNNNPF 
BNNPPNPPNF 
BPPPPPNPNF 

bnnppnnnnf 
bpppppnnpf 
bpnnnpnpnf 
bppnpppppf 
bnnnnnnnnf 
bppnppnnnf 
bnnpnnnnpf 
bppnnnnnpf 
bnnnpnnpnf 
bppnnnnnpf 
bppnnnnpnf 
bpnnnnnppf 
bpnnnnpppf 



BNNNNPPNPF 
BNNNNNNNPF 
BNNPPNPPNF 
BNNPPNNNNF 
BPPPNPNNNF 
BNNNNPNPPF 
BNNPPNNNNF 
8NPPNNNNNF 
BP PN NP NN NF 
BNNPPPPPNF 
BPPNNPPPPF 
BPPNNPNPNF 
BNPNNNPPNF 
BNNNPNPNNF 
BNNNPPPNNF 
BPPNPNNPNF 
BNNPPPPPNF 
BNNNNNNNNF 
BNNPPNNNNF 
BPPPPPNNPF 
BNPNPNPPPF 
BNNNNNNNPF 
BNNNNNNNNF 
BNNNNPNPNF 
3NNNNPNNPF 
RPPPPPNPPF 
BNNNNPNPNF 
BNNNNPPNPF 
BNNNPNPPNF 
BNPNNNPPNF 
BNNNNPNPPF 
BNNPPNNNNF 
BPPPPPNNPF 
BPPNPPPPPF 
BNNNNNPPNF 
BNNPPNNNPF 
BNNPPNPPNF 
BPPNPNPPPF 
8NNPNPPPNF 
BPPPPPNNNF 
BNNPPNPPNF 
BNNNNPPPNF 
BNPNNNPPNF 
BNNNNPNPPF 
BNNPPNNNNF 
BPPNNPNNNF 
BNNPPNNNPF 
BNPNNNPNNF 



BP p NNNNPNF 
PPNPNPNNPF 
BNNPPNNNNF 
BPPPPPNNPF 
BPPNNPPPPF 
BPPNNPNNNF 
BNNPPNPPNF 
BPPNPNPPPF 
BNNPPNNNNF 
BNNNNPNNNF 
BNNPPPPPNF 

bppnpnnnpf 
bppn.nnpnnf 
bppppppnnf 
'pnnnpnnpnf 

BPPNPNNNNF 

bpnnpnpppf 
bpnnpppppf 
bnnnnpnnnf 
bppnnpnnnf 



BNNNNPNPNF 
RNPNPNPNPF 
BPPPPNPNNF 
BNNPPPPPNF 
BNNNPNPPNF 
BNNPPNPPNF 

bppnnpnnnf 
rnnpnpnnnf 
b nn pp pp pn f 

BNNNNNNNNF 
BNNPPNNNNF 
BDPPpPNNpF 
3NPNPNPPP r 
BNNNNNNNPF 
BNNNNNNNNF 
BNNNNPNPNF 
BPPPPPNPNF 
BNNPPNPPNF 
BPPNPNPPPF 
PNNPPNNNNF 
BNNNNPNNNF 
BPPNNPNNNF 
RPNPPNNNPF 
BNNNNPPPNF 
BNNNPPPPNF 
BNNNNPNNNF 
BNPNNNPNNF 
BNNNNPNPNF 
BNNNNPNPNF 
BPPPPPNPPF 
BNNPPNPPNF 
BPPNPNPPPF 
BNNPPNNNNF 
BNNPPPPPNF 
BNNNPPPPNF 
BNNNNPNNPF 
BPPPPNPNNF 
BNPNNNPPNF 
BNNNNPNPPF 
BNNPPNNNNF 
BPPNPPPPPF 
BNNNNNPPNF 
BNNPPNNNPF 
BNNPPNPPNF 
BPPNPNPPPF 
BPPNNNNPNF 
BPPPPPNNPF 
BNPPPPNNNF 



BPNNPPPPPF 
BNNNNPNNNF 
BPPNPNPPPF 
BMNP p NNNNT 
BNNPPNNNNF 
BPPPPPNNPF" 
qPPNPNNNNF 
BNNPPNjPPNC* 
BPPPPPNPNF 
BPPPNNPPPF 
BNNNPNNNPF 
BPPNNMNP°F 
pMNNPNNPNF 

bpppnnnnnf 
bppnmpnnn" 

BNNPPNNNPF 
B PP NN PN NN F 
8PPNPNNNNF 
BNNPPNNNPF 
BNNPPNNNNF 



BNNNNPNPNF 
PNNPNPPPNF 
BNNPPPPPNF 
BNNNNNNNNF 
8NNNNNNPPF 
pPPPPNPNNF 
BPPNNNNPNF 
BNNNNPNPPF 
BN NN NN PN PF 
BNNPPNPPNF 
BPPNPNPPPF 
BNNPPNNNNF 
BNNNNPNNNF 
BPPNNPNNNF 
BPNPPNNNP.F 
BNNPPN°PNF 
BNNPPNNNNF 
BPPPPNPNNF 
BNNPPNPPNF 
BPPPPPNPNF 
BPPNNNNNPF 
BPPNNNNPNF 
BNPNNPNNNF 
BPPPPPNNPF 
RNPPPNNPPF 
BNPNNNPNNF 
BPPNPNPPPF 
BNNNNPPPNF 
BNNNPPPPNF 
BNNNNPNNNF 
BPPPPNPNNF 
BNNPPNPPNF 
BPPPPPNPNF 
BNNNNPNNNF 
BNNNNNNNPr 

BNNPNPPPNF 
BPPNKPPPPF 
BNNNNNNPPF 
BNNPPNPPNF 
BNNPPPPPNF 
BNNPPPPPNF 
BNNNPPPPNF 
BNNNNPNNPF 
BPPPPNPNNF 
BNNNNNPNNF 
BNNNNPPNNF 
BNNPPNNNNF 
BNNNNPNPNF 
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INTEL CORPORATION 
3065 Bowers Avenue 
Santa Clara, California 95051 
(408) 246-7501 



MCS TECHNICAL MEMORANDUM 



A GUIDE TO P-L/M PROGRAMMING 



15 March 1974 



This MCS Technical Memorandum provides replacement 
pages for the following MCS. manual: A Guide to PL/M 
Programming • 

The changed pages document the availability of* PL/M 
Version 3.0. Note that prior to Version 3.0 some 
features of the language and the compiler are either 
not implemented in full or are not available. 

Pages to be replaced or added are: 
47 - 48 
54, 58 
65 - 67 
95 - 102 

File this memo at the back of the manual to provide 
a record of changes. 



MCS 108-0774- IK 



129 INVALID USE OF BUILT-IN FUNCTION IN AN ASSIGNMENT, 

110 PASS-2 COMPILED ERROR, INVALID VARIABLE PRECISION (NOT 
SINGLE BYTE OR DOUBLE BYTE), MAY BE DUE TO PREVIOUS ERROR, 

111 LABEL RESOLUTION ERROR IN PASS-2 (KAY BE COMPILE* ERROR), 
132 (SANE AS 108), 

122 (SAKE AS 113), 

134 INVALID PROGRAM TRANSFER (ONLY COMPUTED JUMPS ARC ALLOWED 

WITH A 'GO TO*), 

129 (SAME AS 134), 

120 ERROR IN BUILT-IN FUNCTION CALL, 
137 (NOT USED) 

121 (SAVE AS 107), 

129 ERROR IN CHANGING VARIABLE TO ADDRESS REFERENCE, MAY 

BE A PASS-2 COMPILER ERROR* OR MAY BE CAUSED BY PRE* 
VOUS ERROR, 

140 f SAME AS 107), 

141 INVALID ORIGIN, CODE HAS ALREADY BEEN GENERATED IN THE 
SPECIFIED LOCATIONS, 

1.4? A SYMBOL TABLE DUMP HAS BEEN SPECIFIED (USING IKE I MEMORY 

TOGGLE IN PASS*1)» BUT NO FILE HAS BEEN SPECIFIED TO RE- 
CEIVE THE BKPF TAPE 'USE THE SBNPF»N CONTROL), 

142 INVALID FORMAT FOR THE SIMULATOR SYMBOL TABLE DUMP (SEE 
ERROR nn, 

144 STACK NOT EMPTY AT END OF COMPILATION, POSSIBLY CAUSED 
BY PREVIOUS COMPILATION ERROR, 

145 PROCEDURES NESTED TOO DEEPLY (HL OPTIMIZATION) 
SIMPLIFY NESTING* OR RECOMPILE WITH LARGER PSTACK 

140 PROCEDURE OPTIMIZATION STACK UNDERFLOW , MAY BE A 

RETURN IN OUIER BLOCK, 

147 RESTART LOCATIONS FOR SUBSCRIPT AND BASED VARIABLE 

SUBROUTINES OVERLAP (CHECK SI THROUGH |7 PARAMETERS) 



Figure IV-7. (Con't) 
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Switch Nam* 



Use 



Default 



10 * (I 



• l « n 

thru 

• 7 « n 



•ANALYZE » h 
•BINARY s n 

•COUNT 8 n 
•DELETE s n 
• EOF 
•FINISH 

•GENERATE s r 



•HEADER 



•INPUT = n 



Controls branch to starting location if 0 
any restart toggle is specified (81 thru »7) 

If n is greater than 7» inline code is 8 

generated for address computation. If n 

is between 0 and 7# a restart subroutine 

will be emitted in restart location n# 

and inline code in the program will be 

replaced by restart instructions (see 

section V,4), 

Print a trace of the register alloca- 0 
tion stack If n ■ 1, include assigned 
registers it n > 2, 

Do not write a object tape If n ■ 0, Other- 0 
wise r write a object tape to file n (see 
PL/m file numbering). The object tape format 
is determined by the setting of SQUICKDUMP, 

(Same as Pass 1) 

(Same as Pass i) 

(Same as Pass l) 

Print a decoded dump of the generated 0 
machine code at the end of Pass 2, 

Print a cross reference of source line 0 
numbers verses machine code locations 
if n a 1. If n ■ 2, print a trace of 
the intermediate language as it is read, 
as well. 

Start machine code generation at location 0 
n when producing code dump or object tape, 

(Same as Pass 1) 



SLEFTMARGIN s n (Same as Pass 1) 



• MAP 

•OUTPUT s n 



Print a memory map showing symbol numbers 
and address assignments at the end of Pass 2, 

(Same as Pass 1) 
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•PRINT 
•OUICKDUMP 



(Same as Past 1) 

If n m o, the object tape format will 
be BNPF, If n * if the object tape format 
will be hexideclmal, with 16 bytes per record. 
If n It greater than I, the object tape will 
hexideclmal with n bytes per record, 



SRlGHTMARGINan (Same as Pass 1) 



•TERMINAL 
•VARIABLES 8 n 

•WIDTH a n 
8- a n 



(Same as Pass 1) 

The first page of random-access memory (RAM) 
Is page n (numbering 0, \, ... $ S3), 

(Same as Pass 1) 

If n > 0> code is produced for the 8008 
(500KHZ clock). If n a i, code is produced 
for the 8008-1 (SOOKHz cIock), 



Figure IV-8. PLM2 "•" compiler switches. 



PASS- 2 



$generate =1 (cross reference line numbers and locations in code) 
$bnpf = 6 (write bnpf tape to internal file number 6) 



12=0003H 
19-0067H 
25=0089H 
35=00E6H 



13=000EH 15=0011H 16=001EH 17=0026H 18=00U3H 
20=006DH 21=0071H 22=0077H 23=008UH 2U=0087H 
26=008AH 29=009CH 32=00A5H 33=00BEH 3U=00E1H 



Figure IV- 9. Sample output from PLM2 corresponding to the 
INDEX procedure. 
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suppose, for example, a programmer codes three 
subroutines in assembly language for handling teletype I/O. 
The subroutine 51 sends a llne-f eed-carrlage-return, and is 
found at location 50 In memory. The subroutine s2 writes a 
single character at the teletype and returns, Assume 52 
assembles starting at location 75. The subroutine 53 reads 
one character from the teletype, and is located between 
addresses 120 and 150 In memory. The following PL/M program 
then provlaes Interface procedures for these assembly 
language subroutines. 

150|DECLARE CRLFS LITERALLY '50', 

TTY0UT5 LITERALLY '75', 

TTYINS LITERALLY '120* f 
CRLFl PROCEDURE) 

GO TO CRLFS) 

END CRLFf 
TTYOUTl PROCEDURE (CHAR)) 

DECLARE CHAR BYTE) 

GO TO TTYQUTS) 

END TTYOUTf 
TTYIN | PROCEDURE BYTE) 

GO TO TTYINS) 

END TTYIN) 

The CRLF, TTYOUT, and TTYIN procedures can then be called 
in the same manner as any internally-defined procedure. 

If the assembly language subroutines are not fully 
cnecked-out and thus are undergoing revisions, it may be 
worthwhile constructing a "jump vector" at the beginning of 
memory. The jump vector contains jump instructions to 
addresses of the currently assembled suorotines si through 
Sn in lower memory. The corresponding PL/M interface 
procedures then branch indirectly through this jump vector. 
If the subroutines are reassembled at different locations, 
only the jump vector need be changed, since it is not 
necessary to recompile the PL/M program. 

As a final note, the programmer is reminded that 
assembly language subroutines should be used only when 
absolutely necessary, Changes to the PL/M system for future 
machine architecture will necessitate changes in subroutine 
conventions, resulting in loss of upward software 
compatibility In all programs which depend upon these 
conventions. 

4, pl/m Restart Functions 



The size of PL/M programs which make extensive use of 
based or subscripted variable* may be significantly reduced 
by permitting the compiler to use the 8008 restarts. The 
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compiler will then emit short 'subroutines' in the selected 
restart locations and substitute restart instructions for 
inline code in the body of the pl/m program, seven restart 
subroutines are provided to handle various PL/M subscript 
and based variable constructs. Any combination of these 
seven available restart subroutines may be specified prior 
to starting pass 2, by entering the corresponding control 
toggles and restart numbers to be used, PL/M constructs 
and the associated control toggles are given in figure v-4, 
Tne toggles used should be selected on the basis of 
occurence of these constructs in the user's PL/M program. 
Figure v-4 lists typical code reduction* in bytes, for each 
use of each restart. 

In general, all but the most trivial programs win 
benefit from the use of the restart subroutines. The 
restarts required for the constructs of figure v-4 arei 

1) Based scalar variables require only control 
toggle 1, 

2) Byte vectors with byte subscripts require 
control toggles 2 and 5, 

3) Address vectors require control toggles 2 and 
6, and In addition, 3 if byte subscripted 
and 4 if address subscripted, 

4) Subscripted based variables require control 
toggles 2 and 7. 



The default value of all the restart toggles is eight, 
indicating that neither the restart subroutine nor restart 
instructions will be produced. Setting a toggle to a value 
n between 0 and 7 selects the restart option, and forces the 
restart subroutine to be emitted at locations B«n through 
8*n+7, 

The starting location of the user program will be that 
following the highest restart locations used, for example, 

$2a4 $4a2 $6s3 

will result in a starting location of 40 tor the user 
program (subroutine 2 occupies locations 32 (8*4) through 
39 C8»4+7)). 

A program's starting address may be altered by setting 
the SHEADER control toggle, or by specifing an origin 
in the source code. Progam origins are not permitted which 
would origin the PL/M program at or below the last location 
used for the restart subroutines. 
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If any of the restart toggles are selected, the 
compiler will include a branch to the starting location of 
the program in location 0 through 2. Thus, a restart 0 may 
be used to start or restart the user program. Generation 
ot the branch at location 0 is controlled by the control 
toggle 0. The default value of this toggle is 0, which 
forces the normal branch to the PL/M program's starting 
location. If the toggle is set to 1, no branch will be 
produced. Setting the toggle to a value n greater than i 
will force a branch at location 0 to the absolute address n, 

Users of the Xnteilac 8 should be aware that the 
monitor uses locations 3 through 15 for all commands other 
than 'READ' • If a restart toggle is set to '1', the 
restart subroutine will be occupy locations 8 through 15, 
The program may be loaded using the monitor, but it may 
be started only by use of the reset switch to force a 
restart 0, 



Control Code PL/M 
Toggle Reduction Construct 



51 4 scalar based variables) 

subscripted based variables 
when 87 is not selected 

52 1 Complex expressions involving 

a subscripted variable and 
either a procedure call of another 
subscripted variable (may be called 
prior to calling restart 5, 6, or 7) 

53 3-4 Address vectors with byte subscripts 

$4 3-4 Address vectors with address subscripts 

1-2 Address vectors with byte subscripts 

when 83 is not selected 

85 3-4 Byte vectors with byte subscripts 

86 3-4 All address vectors 
1-2 All byte vectors 

87 7-8 All based subscripted variables 
Figure V-4, pl/m restart toggles and associated constructs 
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Appendix A 
A Sample Program in PL/M 



Source Listing 



00001 

00002 

00003 
00004 
00005 
00006 
00007 
00008 
00009 
00010 
00011 
00012 
00013 
00014 
00015 
00016 
00017 

oooia 

O0019 
00020 
00021 
00022 
00023 
00024 
0002b 
00026 
00027 
00028 
00029 
00030 
00031 
00032 
00033 
00034 
00035 
00036 
00037 
00038 
00039 
00040 
00041 
00042 
000*3 
00044 
00045 
00C46 
00047 
00048 
00049 
00050 
00051 
00052 
00053 
00054 
.00015 
00056 
00057 
00058 
00059 
00060 
00061 
00062 
00063 
00064 
00065 
00066 
00067 
00068 
00069 
00070 
00071 
00072 
00073 
M0 PROGRAM 



20481 /• 16 f HE ORIGIN OF THIS PROGRAM •/ 
DECLARE TTO LITERALLY # 2 # , CR LITERALLY # 150 # , If LITERALS*!? •OAM*, 
TRUE LITERALLY M # » FALSE LITERALLY # 0 # | 

6QUARE8ROOTI PROCEDURE(X) BYTE! 
DECLARE (X,Y#Z) ADDRESS) 
Y ■ X| Z ■ SHR(X*l,i)f 

00 WHILE Y O It 

Y a Zf Z a SHRCX/Y ♦ Y ♦ 1, 1)1 

END J 
RETURN Yf 
END SQUAPLROOIj 

PRINTS CHARf PROCEDURE (CHAR) f 

DECLARE BITSCELL LITERALLY 'tl't 

(CHARr I } BYTEf 
OUTPUT (TTO) « Op 
CALL TIME (BITSCELL) f 
DO I « 0 TO 7 | 

OUTPUTCTTO) a CHARf /• DATA PULSES •/ 
CHAR s ROR(CHAR,l)f 
CALL TIME ( BITSCELL) f 
ENDj 

OUTPUT (TTO) a If 

CALL TIME (B1T8CELL+BITCELL) f 

/• AUTOMATIC RETURN IS GENERATED •/ 

END PRlNTlCHARf 

PRINTsSTR IKGf PROCEDURE (NAME, LENGTH) f 
DECLARE NAME ADDRESS, 

(LENGTH* I; CHAR BASED NAME) BYTEf 
DO 1 s 0 TO LENGTH • if 
CALL PRINT8CHAR(CHAR(I))| 
ENDf 

END PRINTSSTPINGf 

PRINTSNUMBEPf PROCEDURE ( NUMBER # BASE, CHARS # 2ER08 SUPPRESS ) f 

DECLARE NUMBER ADDRESS* ( BASE, CHARS, ZEROS SUPPRESS, I, <$) &¥YEf 
DECLARE TEMP (16) BYTEf 

IF CHARS > LAST(TEtP) THEN CHARS » HST(TEMP) f 
DO I a 1 TO CHARS f 
J a NUMBER MOD BASE ♦ # 0 # f 
IF J > '9* THEN J « J ♦ 7f 

IF ZEROSSUPPRESS AND 1 <> I AND NUMBER s 0 THEN 

J « # *f 
TEMP (LENGTH (TEMP )»I) a Jf 
NUMBER 8 NUMBER / BASE J 
END f 

CALL PRINTS5TPING(.TEMP ♦ LENGTH (TEMP) - CHARS, CHARS)? 
END PKlNTsNUMBERf 

DECLARE I ADDRESS* 

CRLF LITERALLY 'CR,LF% 
HEADING DATA (CRLF,LF,Lr, 

• TABLE OF SQUARE ROOTS', CRLF, LP, 

• VALUE ROOT VALUE ROOT VALUE ROOT VALUE ROOT V&LUff ROOT', 
CRLf ,LF) f 

/• SILENCE TTY AND PRINT COMPUTED VALUES •/ 
OUTPUI(IIO) all 
DO I a I TO lOOOf 
IF I MOD 5 a 1 THEN 

DOf IF I MOD 250 a 1 THEN 

CALL PR I NTS5TRING( •HEADING, LENGTH (HEADING)) J 

ELSE 

CALL PRINISTPING( 9 (CR,LF),2)f 

ENDf 

CALL PRINTSNUMPER( 1,1 0,6, TRUE /• TRUE SUPPRESSES LEADING ZEROS 0 «7)f 

CALL PPINTSNUMBER(SQUAPE8H00I(I), i0,6, TRUE) f 

ENDf 

DECLARE MONITORSUSES (10) BYTEf 
EOF 

ERRORS 
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Syirooi Table 



500083 M0N1T0RU5ES 
5000«2 6 
500078 250 
500076 5 
500074 1000 

500072 0 VALUE ROOT VALUE ROOT VALUE ROOT VALUE ROOT VALUE ROOt # 
S000 71 • TABLE OP SQUARE R09Tft # 

500070 OA 
500069 15 
500068 HEADING 
300066 X 
300065 9 9 
500062 9 9 9 
S00061 9 0 9 
500057 TEMP 
500056 J 
S00055 I 

500053 ZERUSUPPRES5 
500052 CHARS 
500051 BASE 
500050 NUMBER 
500049 PRIMNUMBER 
500046 CHAR 
S00045 I 
S00043 LENGTH 
500042 NAME 
500041 PR1M5TRING 
500039 7 
S00037 91 
500036 0 
500035 2 
500034 I 
500032 ChAR 
500031 PRINTCHAR 
500028 1 
500027 Z 
500026 Y 
500024 X 

500023 SOUAPbROOT 
500022 204« 

500010 DOUBLE 
500019 MUVE 
S00018 LAST 
500017 LENGTH 
500016 OUTPUT 
500015 INPUT 
500014 LOW 
S00013 HIGH 
500012 TIME 

500011 SCR 
500010 5CL 
500009 SHR 
500008 SHL 
500007 RQR 
500006 RUL 
500005 MEMORY 
500004 PARITY 
500003 SIGN 
500002 ZERO 
500001 CARRY 
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Source Line Number - Code Location Croei Reference 



2>0900H 
ll«08A9H 
21«08CCH 
27»Q8F1H 
36«0922H 
43*095FH 
49«09bEH 
S00068 02527 

ODH OAH 
20H 20H 20H 
46H 20H 53h 
56H 41H 4CH 
20H S2H 4FH 
56H 41H 4CH 
20H 52H 4FH 
60'0A52H 
63«0A8AH 
500086 02744 
ODH OAH 
67*0ABAH 
70*0AF1H 



6*0803K 
12«08AFH 
22«08D1H 
28«08F2H 
37«G923H 
44»09t>2K 
S1609DEH 
115 

OAH OAH 20H 
20H 20H 20H 
StH 55H 41H 
55H 4SH 20H 
4FH 54H 20H 
55H 4SH 20H 
4FH 54H ODH 
6i«0A55H 
65«0AA9H 
2 

68«0AC3H 
71«0B03H 



7«O80AH 
16«08B4H 
23«08D2H 
30»08FBH 
38*092AH 
45*0988H 
52*09DFH 

20H 20H 20H 
20H 20H 20H 
52H 45H 20H 
20H 52H 4FH 
S6H 41H 4CH 
20K 52H 4FH 
OAH OAH 
62«OA5£H 
66*0AB5H 



69«0AD8H 



8«081DH 9-0838H 10«0I9DM 

18«08»6H 19«08BFK 20«OIC2H 

2««Q8E2* 2»«08fSH 2+MSEtH 

32301F5H 33«0904H 34«091AH 

40«092CH 41»093lM 42»«942H 

46«098CH 47«099CH 4|»09b9H 



20H 20H 20H 20H 20H 20H 20H 20H 20H 

20H 20H S*H 41H 42H 4CH 45H 20H 4FH 

S2H 4F* 4*H 54H S3* ODH OAH OAH 20H 

4FH S4H 26 H S6H 4lH 4tTH S5H 45H 20H 

5SH 45 H 20H 20H 52H 4FH 4FH 54H 20H 

4FH Mrt 20H 56H 41H 4CM SSH 4SH 20M 



Variable Addreee Hep 



500001 OOECCH 
500005 OOCOOH 
500027 00BD4H 
500043 OOBDAH 
500052 OOBLCH 
500057 CQbt4h 
S00085 00BC8H 



500002 OObCUH 

500021 OObPOH 

S00032 00BD6H 

500045 008DBH 

S00053 00BE1H 

500066 00BF4H 



500003 OOBCEH 
S00024 OOBt)0H 
500034 00BO7M 
500050 OOBQCH 
S00053 00B£2H 
500083 00BF6H 



800004 OOBCFH 
$00026 00BD2H 
S00042 OOBDVH 
|00051 OOBDFH 
§00056 OObEJH 
#000t4 OOHCAH 



Generated Object Code 



0800H JMP,52K,0AH LHI , ObH LLX » DOH LMB INL LMC DCL LBN INL LCM INL LKB 
0810H INL LMC LLIiDOH LAM IWL LCM ADI,01H LBA LAC ACI,00H OPA PAR LCA 
0820H LAB PAP LLI,D4H LMA INL LMC LHI,QBH LLI »02H LAP INL LCM XNL SUM 
0830H INL LBA LAC SbM ORB JTZr A9H» 06H DCL LttM INL LCM LLI,D2H LKB INL 
0840H LMC DCL LBM INL LCM LLI,CBH LMB INL LMC LLI,D0H LBM INL LCM LLX 
0850H,CAH LMB INL LMC JHP,8AH,08H LtM DCL LUM L*X # 1 I'M LBX,OOH LCB LAO 
0860H PAL LDA LAE PAL LEM DCE LME LEA RTZ 1KB HAL LBA LAC PAL LCA DCL 
0870H DCL LAB SUM Lb A INL LAC SBM LCA JFC#8JH,08H OCL LAB AON LBA INL 
0880H LAC ACM LCA INL SB A 581, 80H JMP,5fH,0#H CAL*57H,08H LAD LLI#D2H 
0890H ADM INL LUA LAE ACM LEA LAD ADI,01H L3A LAE ACX,O0H OR A PAR LEA 
08A0H LAD PAP INL LMA INL LME JMP,27H,08H LLX,02H LAM INL LCM RET LHX 
08BQH,QBH LLX#D6H LMB XftA OlO LSI # 5BH DCB J1Z,BFH,08H JMP,B*H,08H INL 
06C0H LMI,OOH LAI,07H LHX * ObH LLI,C7H SUM JIC#E2H,B8H DCL LAM OlO LAM 
08D0H PRC LMA LBI,5bH DCB JTZ,DBH,08H JMP,D4W,#8H XNL LBM INS LMB JF1 
O8E0H,C2H,O«H LAI,OlH OlO LAX « 5BH ADX#SBH LdA DCB J1Z,F1H,Q8H JMp,EAH 
0%FQH,08H PET LHI #0BH LLI #D8K LMB INL LMC INL LMD XNL LMX#00M LHI#0BH 
0900H LLXfDAH LBM DCB LAB XNL SUM JTC#22H,09H U* LLI #D6H ADM ZNL LBA 
0910H LAI,OOH ACM LLfe LHA LAM LBA CAL# AFH# OtfH LLI »DBH LBM INB LMB JFZ 
0920H,FEH,08H PET LHI # OBH LLI,EOmYmb INL LMD %kl§ OFH DCL SUM JFC*33H 
0930H,09H LHI # OFH LLI t t2H LMI,01H LhI,ObH LLX #EuH LAM LLI#E4H SUM JTC 
0940H,C6H.09H LLI # DFH LBM LLI.C8H LMB INL LMI , OOH LLI,DCH LBM XNL LCM 
0950H LLI#CAH LMB INL LMC CAL»57H#08H LAB AUI,30H Lb A LAC ACXfOOH LLX 
0960H,£3H LMB LAI , 39H SUM JFC»6CH,09H LAM AD I, 07 H LMA DCL LBM DCB LAI 
0970H,FFH JFZ,75H # 09H XHk DCL NUM LLI » DCH LBA LAM INL LDK SUX,OOH LCA 
0980H LAD 5BI,00H ORC SUX,OlH SBA NDB PRC JFC#90H,09H LLX » E3H LMI,20H 
0990H LAX # 10H LLX,E2H SUM LLI # E4H AOL LBA LAH iCI 9 00M DCL LOH LLB LHA 
09A0H LMD LHI $ OBH LLI#DFH LBM LLI,C8H LMB XNL LMX 9 00H LLX^OCM LBM XML 
09B0H LCM LLI » C AH LMB XNL LMC CAL,57H,08H LLI f DCH LMD INL LMC LLX #E2H 
09C0H LBM X.NB LMB JFZ # 37H,09H LLI # E4H LCH LAL ADI,10H LBA LAC ACX#OOH 
09DOK LCA LAB LLI,EOH SUM LBA LAC SBI^OOH LDM LCA CAL»F2H,08H RET 
OVDFH ODH OAH OAH OAK 20H 20H 20H 20H 20H 20H |0H 2GH 20H 20H 20H 20H 
09EFH 20H 20H 20H 20H 20H 20H 20H 20H 20H 20H 20H 20H 54^i 41H 42H 4CH 
09FFH 45H 20H 4FH 46H 20H S3H 51H 55H 41H 5 2H 45H 20H 52H 4FH 4FH 54H 
OAOFH 53H ODH OAH OAH 20H 56H 41H 4CH 55H 45H 1QH 20H 52H 4FH 4FH 54H 
0A1FH 20H 56K 41H 4CH 55 H 45H 20H 20H 52H 4FH 4FH 54H 20H 56H 41H 4CH 
0A2FH 55H 45H 20H 20H 52H 4FH 4FH 54H 20H 56H 4iM 4CH SSH 45 M 2 OH 20H 
0A3FH 52H 4FH 4FH 54H 20H 56H 41H 4CH 55H 45rM Z»H 20H 52H 4FH 4FH S4H 
0A4FH ODH OAH OAH 
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0A52H LAI * 01H 010 LHX,OBH LLX»F4H L*I#01H XNL L*X,00H LAX * CBH LCX#03H 
Olbi* LHI,CbH LLXr F4H SUM INL LB A LAC SoM JXC#0JM f OHN LLX#C8H LMX#OSM 
0A72H XNL LMl,00h LLX »F4H LB* XNL LCH LLX#CAH LMB XNL LMC CAL#S7H # 0IM 
0M2H LAB SUI,01H LbA LAC SBX»OOH ORB JFZ#C3H,0AH LLX»C6H L«X»FAH XNL 
0A92H LMI,00H LLI #F4H LBM INL LC* LLI #CAH L«0 XNL LMC CAL#f7M#0IH LAB 
0AA2H SUI#01H LBA LAC SBI,00H ORB JFZ#BAH # OAH LbI#DFH LCX#09H LDX,73H 
0AB2H CAL#F2H f 08H JKP,CJH # OAH 
0AB8H OOH OAH 

OABAH Lbl , BbH LCI#0AH LDI,02H CAL»F2H,08H LLX #F4H LBM XNL LCH LLX#OCN 
OACAH LtfB XKL LMC LLX,DFH LHI , OAH L5X#0*H LUX»0|N CAL,2JH,09H LLI#F4W 
0 ADAH LbM XNL LCH CAL,03H,08H LLX#DCH LMA XNL L*I,00H LLXtDFH LMI,0AM 
OACAH LBI,06H LDI,01H CAL#23H,09H LLX «F4H LAM XNL LC* AOttOlH LBA LAC 
OAFAH ACX#OOH PCL LM8 XNL LMA JMP,5EH,0AH HLT 
NO PROGRAM ERRORS 



BNPF ObjtCt Tapt 



1 CARRY 05714 

2 ZERO 05715 

3 SIGN 05716 

4 PARITY 05717 

5 MEMORY 06000 

23 SQUAPEROOT- 04003 

24 X 05720 

26 Y 05722 

27 Z 05724 

31 PRINXCHAR 04257 

32 CHAR 05726 
34 I 05727 

41 PRIMSTRING 04362 

42 NAKfc 05730 

43 LENGTH 05732 
45 I C57J3 

49 PRINTNUHBER 04443 

50 NUMbER 05734 

51 BASE 05737 

52 CHARS 05740 

53 ZEROSUPPRtSS 05741 

55 2 05742 

56 J 05743 

57 TEMP 05744 
66 I 05764 

68 HEADING 04737 

83 MONXTORUSES 05766 



2u48 BNPNNNPNNF BNPwPNNPNF BNNNNPNPNF BNNPKPPPNF 

bNNNNPNPPF BNNPPNPPNf BPPNPNNNNF BPPPPPNNPF 
2056 bNNPPNNNNF BPPpPPNPNF BNNPPNNNPF BPPNNPPPPF 

BNNPPNNNNF BPPNPNPPPF BNNPPNNNNF BPPPPPNNPF 
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